setwd("")
library(foreign)
library(memisc)

##### Feb 2009
zip74 <- read.spss("kffgeography/2009/1 Feb 2009 To Roper/Final Data no names.sav",to.data.frame=T)
names(zip74)
summary(zip74$area)
summary(zip74$fips)
summary(zip74$FIPS) # nn
summary(zip74$msa)
summary(zip74$smsa) # nn
summary(zip74$zip) # nn
summary(zip74$zipcode) # nn
summary(zip74$szipcode) # nn
summary(zip74$rzipcode) # nn

zip74$AREA <- as.numeric(zip74$area)
zip74$MSA <- as.numeric(zip74$msa)
zip74$SMSA <- NA
zip74$WFIPS <- NA
zip74$NFIPS <- as.numeric(zip74$fips)
zip74$ZIP <- NA
zip74$ZIPCODE <- NA
zip74$SZIPCODE <- NA
zip74$RZIPCODE <- NA
zip74$NUMBER <- 74

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z74 <- subset(zip74,select=list)

##### April 2009
zip75 <- read.spss("kffgeography/2009/2 April 2009 to Roper/April tracking FINAL data.sav",to.data.frame=T)
summary(zip75$area)
summary(zip75$fips)#num
summary(zip75$FIPS)#nn
summary(zip75$msa)
summary(zip75$smsa) # nn
summary(zip75$zip)
summary(zip75$zipcode)
summary(zip75$sampzip)
summary(zip74$rzipcode) # nn

zip75$AREA <- as.numeric(zip75$area)
zip75$MSA <- as.numeric(zip75$msa)
zip75$SMSA <- NA
zip75$WFIPS <- NA
zip75$NFIPS <- as.numeric(zip75$fips)
zip75$ZIP <- as.numeric(as.character(zip75$zip))
zip75$ZIPCODE <- as.numeric(as.character(zip75$zipcode))
zip75$SZIPCODE <- as.numeric(as.character(zip75$sampzip))
zip75$RZIPCODE <- NA
zip75$NUMBER <- 75

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z75 <- subset(zip75,select=list)

##### June 2009
zip76 <- read.spss("kffgeography/2009/3 June 2009 Roper/29039.Client.Finalnonames.sav",to.data.frame=T)
names(zip76)
summary(zip76$area)
summary(zip76$fips)#num
summary(zip76$FIPS)#nn
summary(zip76$msa)
summary(zip76$smsa) #nn
summary(zip76$zip)
summary(zip76$zipcode)
summary(zip76$sampzip)
summary(zip76$rzipcode) # nn

zip76$AREA <- as.numeric(zip76$area)
zip76$MSA <- as.numeric(zip76$msa)
zip76$SMSA <- NA
zip76$WFIPS <- NA
zip76$NFIPS <- as.numeric(zip76$fips)
zip76$ZIP <- as.numeric(as.character(zip76$zip))
zip76$ZIPCODE <- as.numeric(as.character(zip76$zipcode))
zip76$SZIPCODE <- as.numeric(as.character(zip76$sampzip))
zip76$RZIPCODE <- NA
zip76$NUMBER <- 76

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z76 <- subset(zip76,select=list)

##### July 2009
zip77 <- read.spss("kffgeography/2009/4 July 2009 Roper/Final SPSS data.sav",to.data.frame=T)
names(zip77)
summary(zip77$area)
summary(zip77$fips)#num
summary(zip77$FIPS)#nn
summary(zip77$msa)
summary(zip77$smsa) # nn
summary(zip77$zip)
summary(zip77$zipcode)
summary(zip77$sampzip)
summary(zip77$rzipcode) # nn

zip77$AREA <- as.numeric(zip77$area)
zip77$MSA <- as.numeric(zip77$msa)
zip77$SMSA <- NA
zip77$WFIPS <- NA
zip77$NFIPS <- as.numeric(zip77$fips)
zip77$ZIP <- as.numeric(as.character(zip77$zip))
zip77$ZIPCODE <- as.numeric(as.character(zip77$zipcode))
zip77$SZIPCODE <- as.numeric(as.character(zip77$sampzip))
zip77$RZIPCODE <- NA
zip77$NUMBER <- 77

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z77 <- subset(zip77,select=list)

##### August 2009
zip78 <- read.spss("kffgeography/2009/5 Aug 2009 Roper/29050.Client_1_nonames.sav",to.data.frame=T)
names(zip78)
summary(zip78$area)
summary(zip78$fips)#num
summary(zip78$FIPS)#nn
summary(zip78$msa) #nn
summary(zip78$smsa)
summary(zip78$zip)
summary(zip78$zipcode)
summary(zip78$sampzip)
summary(zip78$rzipcode) #nn

zip78$AREA <- as.numeric(zip78$area)
zip78$MSA <- NA
zip78$SMSA <- as.numeric(zip78$smsa)
zip78$WFIPS <- NA
zip78$NFIPS <- as.numeric(zip78$fips)
zip78$ZIP <- as.numeric(as.character(zip78$zip))
zip78$ZIPCODE <- as.numeric(as.character(zip78$zipcode))
zip78$SZIPCODE <- as.numeric(as.character(zip78$sampzip))
zip78$RZIPCODE <- NA
zip78$NUMBER <- 78

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z78 <- subset(zip78,select=list)

##### September 2009
zip79 <- read.spss("kffgeography/2009/6 Sept 2009 Roper/29067.Client_1.sav",to.data.frame=T)
names(zip79)
summary(zip79$area)
summary(zip79$fips)#num
summary(zip79$FIPS)#nn
summary(zip79$msa) #nn
summary(zip79$smsa)
summary(zip79$zip)
summary(zip79$zipcode)
summary(zip79$sampzip)
summary(zip79$rzipcode) #nn

zip79$AREA <- as.numeric(zip79$area)
zip79$MSA <- NA
zip79$SMSA <- as.numeric(zip79$smsa)
zip79$WFIPS <- NA
zip79$NFIPS <- as.numeric(zip79$fips)
zip79$ZIP <- as.numeric(as.character(zip79$zip))
zip79$ZIPCODE <- as.numeric(as.character(zip79$zipcode))
zip79$SZIPCODE <- as.numeric(as.character(zip79$sampzip))
zip79$RZIPCODE <- NA
zip79$NUMBER <- 79

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z79 <- subset(zip79,select=list)

##### October 2009
zip80 <- read.spss("kffgeography/2009/7 Oct 2009 to Roper/29073.Client1016new.sav",to.data.frame=T)
names(zip80)
summary(zip80$area)
summary(zip80$FIPS)
summary(zip80$sfips)
summary(zip80$smsa)
summary(zip80$msa)
summary(zip80$zip)
summary(zip80$zipcode)
summary(zip80$szipcode)
summary(zip80$rzipcode)

zip80$AREA <- as.numeric(zip80$area)
zip80$MSA <- as.numeric(zip80$msa)
zip80$SMSA <- as.numeric(zip80$smsa)
zip80$WFIPS <- as.character(zip80$FIPS)
zip80$NFIPS <- NA#as.numeric(zip80$sfips)
zip80$ZIP <- as.numeric(as.character(zip80$zip))
zip80$ZIPCODE <- as.numeric(as.character(zip80$zipcode))
zip80$SZIPCODE <- as.numeric(as.character(zip80$szipcode))
zip80$RZIPCODE <- as.numeric(as.character(zip80$rzipcode))
zip80$NUMBER <- 80

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z80 <- subset(zip80,select=list)

##### November 2009
zip81 <- read.spss("kffgeography/2009/8 Nov 2009 to Roper/29088.Client_1nonames.sav",to.data.frame=T)
names(zip81)
summary(zip81$area)
summary(zip81$FIPS)
summary(zip81$sfips)
summary(zip81$smsa) #nn
summary(zip81$msa)
summary(zip81$zip)
summary(zip81$zipcode)
summary(zip81$szipcode)#nn
summary(zip81$rzipcode)#nn

zip81$AREA <- as.numeric(zip81$area)
zip81$MSA <- as.numeric(zip81$msa)
zip81$SMSA <- NA
zip81$WFIPS <- as.character(zip81$FIPS)
zip81$NFIPS <- NA
zip81$ZIP <- as.numeric(as.character(zip81$zip))
zip81$ZIPCODE <- as.numeric(as.character(zip81$zipcode))
zip81$SZIPCODE <- NA
zip81$RZIPCODE <- NA
zip81$NUMBER <- 81

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z81 <- subset(zip81,select=list)

##### December 2009
zip82 <- read.spss("kffgeography/2009/9 Dec 2009 to Roper/29092.Client FINAL.sav",to.data.frame=T)
names(zip82)
summary(zip82$area)
summary(zip82$sfips)
summary(zip82$FIPS)
summary(zip82$smsa)
summary(zip82$msa)#nn
summary(zip82$zip)
summary(zip82$zipcode)
summary(zip82$szipcode)
summary(zip82$rzipcode)

zip82$AREA <- as.numeric(zip82$area)
zip82$MSA <- NA
zip82$SMSA <- as.numeric(zip82$smsa)
zip82$WFIPS <- as.character(zip82$FIPS)
zip82$NFIPS <- NA#as.numeric(zip82$sfips)
zip82$ZIP <- as.numeric(as.character(zip82$zip))
zip82$ZIPCODE <- as.numeric(as.character(zip82$zipcode))
zip82$SZIPCODE <- as.numeric(as.character(zip82$szipcode))
zip82$RZIPCODE <- as.numeric(as.character(zip82$rzipcode))
zip82$NUMBER <- 82

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z82 <- subset(zip82,select=list)

##### January 2010
zip83 <- read.spss("kffgeography/2010/1 Jan 2010 to Roper/30006.Client.sav",to.data.frame=T)
names(zip83)
summary(zip83$area)
summary(zip83$smsa)#nn
summary(zip83$msa)#nn
summary(zip83$FIPS)
summary(zip83$sfips)
summary(zip83$zip)
summary(zip83$zipcode)
summary(zip83$szipcode)
summary(zip83$rzipcode)

zip83$AREA <- as.numeric(zip83$area)
zip83$MSA <- NA
zip83$SMSA <- NA
zip83$WFIPS <- as.character(zip83$FIPS)
zip83$NFIPS <- NA#as.numeric(zip83$sfips)
zip83$ZIP <- as.numeric(as.character(zip83$zip))
zip83$ZIPCODE <- as.numeric(as.character(zip83$zipcode))
zip83$SZIPCODE <- as.numeric(as.character(zip83$szipcode))
zip83$RZIPCODE <- as.numeric(as.character(zip83$rzipcode))
zip83$NUMBER <- 83

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z83 <- subset(zip83,select=list)

#### February 2010
zip84 <- read.spss("kffgeography/2010/2 Feb 2010 to Roper/FINAL.sav",to.data.frame=T)
names(zip84)
summary(zip84$area)
summary(zip84$msa) # nn
summary(zip84$smsa)#nn
summary(zip84$FIPS)
summary(zip84$sfips)
summary(zip84$zip)
summary(zip84$zipcode)
summary(zip84$szipcode)
summary(zip84$rzipcode)

zip84$AREA <- as.numeric(zip84$area)
zip84$MSA <- NA
zip84$SMSA <- NA
zip84$WFIPS <- as.character(zip84$FIPS)
zip84$NFIPS <- NA #as.numeric(zip84$sfips)
zip84$ZIP <- as.numeric(as.character(zip84$zip))
zip84$ZIPCODE <- as.numeric(as.character(zip84$zipcode))
zip84$SZIPCODE <- as.numeric(as.character(zip84$szipcode))
zip84$RZIPCODE <- as.numeric(as.character(zip84$rzipcode))
zip84$NUMBER <- 84

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z84 <- subset(zip84,select=list)

##### March 2010
zip85 <- read.spss("kffgeography/2010/3 March 2010 to Roper/30023.Client.Final.sav",to.data.frame=T)
names(zip85)
summary(zip85$area)
summary(zip85$msa) # nn
summary(zip85$FIPS)
summary(zip85$sfips)
summary(zip85$zip)
summary(zip85$zipcode)
summary(zip85$szipcode)
summary(zip85$rzipcode)

zip85$AREA <- as.numeric(zip85$area)
zip85$MSA <- NA
zip85$SMSA <- NA
zip85$WFIPS <- as.character(zip85$FIPS)
zip85$NFIPS <- NA#as.numeric(zip85$sfips)
zip85$ZIP <- as.numeric(as.character(zip85$zip))
zip85$ZIPCODE <- as.numeric(as.character(zip85$zipcode))
zip85$SZIPCODE <- as.numeric(as.character(zip85$szipcode))
zip85$RZIPCODE <- as.numeric(as.character(zip85$rzipcode))
zip85$NUMBER <- 85

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z85 <- subset(zip85,select=list)

##### April 2010
zip86 <- read.spss("kffgeography/2010/4 April 2010 to Roper/30028.Client_Final.sav",to.data.frame=T)
names(zip86)
summary(zip86$area)
summary(zip86$msa) #nn
summary(zip86$FIPS)
summary(zip86$sfips)
summary(zip86$zip)
summary(zip86$zipcode)
summary(zip86$szipcode)
summary(zip86$rzipcode)

zip86$AREA <- as.numeric(zip86$area)
zip86$MSA <- NA
zip86$SMSA <- NA
zip86$WFIPS <- as.character(zip86$FIPS)
zip86$NFIPS <- NA#as.numeric(zip86$sfips)
zip86$ZIP <- as.numeric(as.character(zip86$zip))
zip86$ZIPCODE <- as.numeric(as.character(zip86$zipcode))
zip86$SZIPCODE <- as.numeric(as.character(zip86$szipcode))
zip86$RZIPCODE <- as.numeric(as.character(zip86$rzipcode))
zip86$NUMBER <- 86

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z86 <- subset(zip86,select=list)

##### May 2010
zip87 <- read.spss("kffgeography/2010/5 May 2010 to Roper/30035.Client518 WITH CODING.sav",to.data.frame=T)
names(zip87)
summary(zip87$area)
summary(zip87$smsa) #nn
summary(zip87$FIPS)
summary(zip87$sfips)
summary(zip87$zip)
summary(zip87$zipcode)
summary(zip87$szipcode)
summary(zip87$rzipcode)

zip87$AREA <- as.numeric(zip87$area)
zip87$MSA <- NA
zip87$SMSA <- NA
zip87$WFIPS <- as.character(zip87$FIPS)
zip87$NFIPS <- NA#as.numeric(zip87$sfips)
zip87$ZIP <- as.numeric(as.character(zip87$zip))
zip87$ZIPCODE <- as.numeric(as.character(zip87$zipcode))
zip87$SZIPCODE <- as.numeric(as.character(zip87$szipcode))
zip87$RZIPCODE <- as.numeric(as.character(zip87$rzipcode))
zip87$NUMBER <- 87

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z87 <- subset(zip87,select=list)

##### June 2010
zip88 <- read.spss("kffgeography/2010/6 June 2010 to Roper/30042.Client0624_nonames.sav",to.data.frame=T)
names(zip88)
summary(zip88$area)
summary(zip88$smsa) # nn
summary(zip88$FIPS)
summary(zip88$sfips)
summary(zip88$zip)
summary(zip88$zipcode)
summary(zip88$szipcode) # Need to add a NULL
summary(zip88$rzipcode)

zip88$AREA <- as.numeric(zip88$area)
zip88$MSA <- NA
zip88$SMSA <- NA
zip88$WFIPS <- as.character(zip88$FIPS)
zip88$NFIPS <- NA#as.numeric(zip88$sfips)
zip88$ZIP <- as.numeric(as.character(zip88$zip))
zip88$ZIPCODE <- as.numeric(as.character(zip88$zipcode))
zip88$SZIPCODE <- NA
zip88$RZIPCODE <- as.numeric(as.character(zip88$rzipcode))
zip88$NUMBER <- 88

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z88 <- subset(zip88,select=list)

##### July 2010
zip89 <- read.spss("kffgeography/2010/7 July 2010  to Roper/30058.Client715_no names.final.sav",to.data.frame=T)
names(zip89)
summary(zip89$area)
summary(zip89$msa) #nn
summary(zip89$FIPS)
summary(zip89$sfips)
summary(zip89$zip)
summary(zip89$zipcode)
summary(zip89$szipcode)
summary(zip89$rzipcode)

zip89$AREA <- as.numeric(zip89$area)
zip89$MSA <- NA
zip89$SMSA <- NA
zip89$WFIPS <- as.character(zip89$FIPS)
zip89$NFIPS <- NA#as.numeric(zip89$sfips)
zip89$ZIP <- as.numeric(as.character(zip89$zip))
zip89$ZIPCODE <- as.numeric(as.character(zip89$zipcode))
zip89$SZIPCODE <- as.numeric(as.character(zip89$szipcode))
zip89$RZIPCODE <- as.numeric(as.character(zip89$rzipcode))
zip89$NUMBER <- 89

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z89 <- subset(zip89,select=list)

##### August 2010
zip90 <- read.spss("kffgeography/2010/8 August 2010 to Roper/30064.Client0824_no names FINAL.sav",to.data.frame=T)
names(zip90)
summary(zip90$area)
summary(zip90$msa) #nn
summary(zip90$FIPS)
summary(zip90$sfips)
summary(zip90$zip)
summary(zip90$zipcode)
summary(zip90$szipcode)
summary(zip90$rzipcode)

zip90$AREA <- as.numeric(zip90$area)
zip90$MSA <- NA
zip90$SMSA <- NA
zip90$WFIPS <- as.character(zip90$FIPS)
zip90$NFIPS <- NA#as.numeric(zip90$sfips)
zip90$ZIP <- as.numeric(as.character(zip90$zip))
zip90$ZIPCODE <- as.numeric(as.character(zip90$zipcode))
zip90$SZIPCODE <- as.numeric(as.character(zip90$szipcode))
zip90$RZIPCODE <- as.numeric(as.character(zip90$rzipcode))
zip90$NUMBER <- 90

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z90 <- subset(zip90,select=list)

##### September 2010
zip91 <- read.spss("kffgeography/2010/9 Sept 2010 to Roper/Sept 2010 no names.sav",to.data.frame=T)
names(zip91)
summary(zip91$area)
summary(zip91$msa) #nn
summary(zip91$FIPS)
summary(zip91$sfips)
summary(zip91$zip)
summary(zip91$zipcode)
summary(zip91$szipcode)
summary(zip91$rzipcode)

zip91$AREA <- as.numeric(zip91$area)
zip91$MSA <- NA
zip91$SMSA <- NA
zip91$WFIPS <- as.character(zip91$FIPS)
zip91$NFIPS <- NA#as.numeric(zip91$sfips)
zip91$ZIP <- as.numeric(as.character(zip91$zip))
zip91$ZIPCODE <- as.numeric(as.character(zip91$zipcode))
zip91$SZIPCODE <- as.numeric(as.character(zip91$szipcode))
zip91$RZIPCODE <- as.numeric(as.character(zip91$rzipcode))
zip91$NUMBER <- 91

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z91 <- subset(zip91,select=list)

##### October 2010
zip92 <- read.spss("kffgeography/2010/10 Oct 2010 to Roper/30079.Final1012.Client_no names.sav",to.data.frame=T)
names(zip92)
summary(zip92$area)
summary(zip92$smsa) #nn
summary(zip92$FIPS)
summary(zip92$sfips)
summary(zip92$zip)
summary(zip92$zipcode)
summary(zip92$szipcode)
summary(zip92$rzipcode)

zip92$AREA <- as.numeric(zip92$area)
zip92$MSA <- NA
zip92$SMSA <- NA
zip92$WFIPS <- as.character(zip92$FIPS)
zip92$NFIPS <- NA#as.numeric(zip92$sfips)
zip92$ZIP <- as.numeric(as.character(zip92$zip))
zip92$ZIPCODE <- as.numeric(as.character(zip92$zipcode))
zip92$SZIPCODE <- as.numeric(zip92$szipcode)
zip92$RZIPCODE <- as.numeric(zip92$rzipcode)
zip92$NUMBER <- 92

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z92 <- subset(zip92,select=list)

##### November 2010
zip93 <- read.spss("kffgeography/2010/11 Nov 2010 to Roper/30088.Client1107_noNames.sav",to.data.frame=T)
names(zip93)
summary(zip93$area)
summary(zip93$msa)#nn
summary(zip93$FIPS)
summary(zip93$sfips) #nn
summary(zip93$zip)
summary(zip93$zipcode)
summary(zip93$szipcode)
summary(zip93$rzipcode)

zip93$AREA <- as.numeric(zip93$area)
zip93$MSA <- NA
zip93$SMSA <- NA
zip93$WFIPS <- as.character(zip93$FIPS)
zip93$NFIPS <- NA
zip93$ZIP <- as.numeric(as.character(zip93$zip))
zip93$ZIPCODE <- as.numeric(as.character(zip93$zipcode))
zip93$SZIPCODE <- as.numeric(zip93$szipcode)
zip93$RZIPCODE <- as.numeric(zip93$rzipcode)
zip93$NUMBER <- 93

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z93 <- subset(zip93,select=list)

##### December 2010
zip94 <- read.spss("kffgeography/2010/12 Dec 2010 to Roper/30092.Client1207_no names.sav",to.data.frame=T)
names(zip94)
summary(zip94$area)
summary(zip94$msa)#nn
summary(zip94$FIPS)
summary(zip94$sfips)
summary(zip94$zip)
summary(zip94$zipcode)
summary(zip94$szipcode)
summary(zip94$rzipcode)

zip94$AREA <- as.numeric(zip94$area)
zip94$MSA <- NA
zip94$SMSA <- NA
zip94$WFIPS <- as.character(zip94$FIPS)
zip94$NFIPS <- NA#as.numeric(zip94$sfips)
zip94$ZIP <- as.numeric(as.character(zip94$zip))
zip94$ZIPCODE <- as.numeric(as.character(zip94$zipcode))
zip94$SZIPCODE <- as.numeric(zip94$szipcode)
zip94$RZIPCODE <- as.numeric(zip94$rzipcode)
zip94$NUMBER <- 94

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z94 <- subset(zip94,select=list)

##### February 2011
zip95 <- read.spss("kffgeography/2011/1 Feb 2011 to Roper/Feb11_MainSurvey data_nonames.sav",to.data.frame=T)
names(zip95)
summary(zip95$area)
summary(zip95$msa)#nn
summary(zip95$FIPS)
summary(zip95$sfips) #nn
summary(zip95$zip)
summary(zip95$zipcode)
summary(zip95$szipcode)
summary(zip95$rzipcode)

zip95$AREA <- as.numeric(zip95$area)
zip95$MSA <- NA
zip95$SMSA <- NA
zip95$WFIPS <- as.character(zip95$FIPS)
zip95$NFIPS <- NA
zip95$ZIP <- as.numeric(as.character(zip95$zip))
zip95$ZIPCODE <- as.numeric(as.character(zip95$zipcode))
zip95$SZIPCODE <- as.numeric(as.character(zip95$szipcode))
zip95$RZIPCODE <- as.numeric(as.character(zip95$rzipcode))
zip95$NUMBER <- 95

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z95 <- subset(zip95,select=list)

##### March 2011
zip96 <- read.spss("kffgeography/2011/2 Mar 2011 to Roper/KFF MarchTracking dataset_nonames.sav",to.data.frame=T)
names(zip96)
summary(zip96$area)
summary(zip96$msa)#nn
summary(zip96$FIPS)
summary(zip96$sfips)#nn
summary(zip96$zip)
summary(zip96$zipcode)
summary(zip96$szipcode)
summary(zip96$rzipcode)

zip96$AREA <- as.numeric(zip96$area)
zip96$MSA <- NA
zip96$SMSA <- NA
zip96$WFIPS <- as.character(zip96$FIPS)
zip96$NFIPS <- NA
zip96$ZIP <- as.numeric(as.character(zip96$zip))
zip96$ZIPCODE <- as.numeric(as.character(zip96$zipcode))
zip96$SZIPCODE <- as.numeric(as.character(zip96$szipcode))
zip96$RZIPCODE <- as.numeric(as.character(zip96$rzipcode))
zip96$NUMBER <- 96

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z96 <- subset(zip96,select=list)

##### April 2011
zip97 <- read.spss("kffgeography/2011/3 April11 Files to Roper/April11 Tracking dataset_no names.sav",to.data.frame=T)
names(zip97)
summary(zip97$area)
summary(zip97$msa)#nn
summary(zip97$FIPS)
summary(zip97$sfips)
summary(zip97$zip)
summary(zip97$zipcode)
summary(zip97$szipcode)
summary(zip97$rzipcode)

zip97$AREA <- as.numeric(zip97$area)
zip97$MSA <- NA
zip97$SMSA <- NA
zip97$WFIPS <- as.character(zip97$FIPS)
zip97$NFIPS <- NA#as.numeric(zip97$sfips)
zip97$ZIP <- as.numeric(as.character(zip97$zip))
zip97$ZIPCODE <- as.numeric(as.character(zip97$zipcode))
zip97$SZIPCODE <- as.numeric(as.character(zip97$szipcode))
zip97$RZIPCODE <- as.numeric(as.character(zip97$rzipcode))
zip97$NUMBER <- 97

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z97 <- subset(zip97,select=list)

##### May 2011
zip98 <- read.spss("kffgeography/2011/4 May11 Files to Roper/May11 Tracking dataset.sav",to.data.frame=T)
names(zip98)
summary(zip98$area)
summary(zip98$msa)#nn
summary(zip98$FIPS)
summary(zip98$sfips)
summary(zip98$zip)
summary(zip98$zipcode)
summary(zip98$szipcode)
summary(zip98$rzipcode)

zip98$AREA <- as.numeric(zip98$area)
zip98$MSA <- NA
zip98$SMSA <- NA
zip98$WFIPS <- as.character(zip98$FIPS)
zip98$NFIPS <- NA#as.numeric(zip98$sfips)
zip98$ZIP <- as.numeric(as.character(zip98$zip))
zip98$ZIPCODE <- as.numeric(as.character(zip98$zipcode))
zip98$SZIPCODE <- as.numeric(zip98$szipcode)
zip98$RZIPCODE <- as.numeric(zip98$rzipcode)
zip98$NUMBER <- 98

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z98 <- subset(zip98,select=list)

##### June 2011
zip99 <- read.spss("kffgeography/2011/5 Jun2011 Files to Ropers/31055.Client0616.sav",to.data.frame=T)
names(zip99)
summary(zip99$area)
summary(zip99$msa)#nn
summary(zip99$FIPS)
summary(zip99$sfips)
summary(zip99$zip)
summary(zip99$zipcode)
summary(zip99$szipcode)
summary(zip99$rzipcode)

zip99$AREA <- as.numeric(zip99$area)
zip99$MSA <- NA
zip99$SMSA <- NA
zip99$WFIPS <- as.character(zip99$FIPS)
zip99$NFIPS <- NA#as.numeric(zip99$sfips)
zip99$ZIP <- as.numeric(as.character(zip99$zip))
zip99$ZIPCODE <- as.numeric(as.character(zip99$zipcode))
zip99$SZIPCODE <- as.numeric(zip99$szipcode)
zip99$RZIPCODE <- as.numeric(zip99$rzipcode)
zip99$NUMBER <- 99

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z99 <- subset(zip99,select=list)

##### July 2011
zip100 <- read.spss("kffgeography/2011/6 July 2011 Files to Roper/31065.Client0725.sav",to.data.frame=T)
names(zip100)
summary(zip100$area)
summary(zip100$msa)#nn
summary(zip100$FIPS)
summary(zip100$sfips)
summary(zip100$zip)
summary(zip100$zipcode)
summary(zip100$szipcode)
summary(zip100$rzipcode)

zip100$AREA <- as.numeric(zip100$area)
zip100$MSA <- NA
zip100$SMSA <- NA
zip100$WFIPS <- as.character(zip100$FIPS)
zip100$NFIPS <- NA#as.numeric(zip100$sfips)
zip100$ZIP <- as.numeric(as.character(zip100$zip))
zip100$ZIPCODE <- as.numeric(as.character(zip100$zipcode))
zip100$SZIPCODE <- as.numeric(zip100$szipcode)
zip100$RZIPCODE <- as.numeric(zip100$rzipcode)
zip100$NUMBER <- 100

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z100 <- subset(zip100,select=list)

##### August 2011
zip101 <- read.spss("kffgeography/2011/7 Aug2011 Tracking files to Ropers/31066.Client0816_1.sav",to.data.frame=T)
names(zip101)
summary(zip101$area)
summary(zip101$msa)#nn
summary(zip101$FIPS)
summary(zip101$sfips)
summary(zip101$zip) # Need a NULL
summary(zip101$zipcode) # Need a NULL
summary(zip101$szipcode)
summary(zip101$rzipcode)

zip101$AREA <- as.numeric(zip101$area)
zip101$MSA <- NA
zip101$SMSA <- NA
zip101$WFIPS <- as.character(zip101$FIPS)
zip101$NFIPS <- NA#as.numeric(zip101$sfips)
zip101$ZIP <- NA
zip101$ZIPCODE <- NA
zip101$SZIPCODE <- as.numeric(as.character(zip101$szipcode))
zip101$RZIPCODE <- as.numeric(as.character(zip101$rzipcode))
zip101$NUMBER <- 101

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z101 <- subset(zip101,select=list)

##### September 2011
zip102 <- read.spss("kffgeography/2011/8 Sept2011 Tracking files to Ropers/31075.Client0914.sav",to.data.frame=T)
names(zip102)
summary(zip102$area)
summary(zip102$msa)#nn
summary(zip102$FIPS)
summary(zip102$sfips)
summary(zip102$zip) # Need a NULL
summary(zip102$zipcode) # Need a NULL
summary(zip102$szipcode)
summary(zip102$rzipcode)

zip102$AREA <- as.numeric(zip102$area)
zip102$MSA <- NA
zip102$SMSA <- NA
zip102$WFIPS <- as.character(zip102$FIPS)
zip102$NFIPS <- NA#as.numeric(zip102$sfips)
zip102$ZIP <- NA
zip102$ZIPCODE <- NA
zip102$SZIPCODE <- as.numeric(as.character(zip102$szipcode))
zip102$RZIPCODE <- as.numeric(as.character(zip102$rzipcode))
zip102$NUMBER <- 102

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z102 <- subset(zip102,select=list)

##### October 2011
zip103 <- read.spss("kffgeography/2011/9 October 2011 tracking files to Ropers/31090.Client_no names.sav",to.data.frame=T)
names(zip103)
summary(zip103$area)
summary(zip103$smsa)
summary(zip103$msa)#nn
summary(zip103$FIPS)
summary(zip103$sfips)
summary(zip103$zip)
summary(zip103$zipcode)
summary(zip103$szipcode)
summary(zip103$rzipcode)

zip103$AREA <- as.numeric(zip103$area)
zip103$MSA <- NA
zip103$SMSA <- NA
zip103$WFIPS <- as.character(zip103$FIPS)
zip103$NFIPS <- NA#as.numeric(zip103$sfips)
zip103$ZIP <- as.numeric(as.character(zip103$zip))
zip103$ZIPCODE <- as.numeric(as.character(zip103$zipcode))
zip103$SZIPCODE <- as.numeric(as.character(zip103$szipcode))
zip103$RZIPCODE <- as.numeric(as.character(zip103$rzipcode))
zip103$NUMBER <- 103

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z103 <- subset(zip103,select=list)

##### November 2011
zip104 <- read.spss("kffgeography/2011/10 November 2011 tracking files to Roper/31100.Client1117.sav",to.data.frame=T)
names(zip104)
summary(zip104$area)
summary(zip104$msa)#nn
summary(zip104$FIPS)
summary(zip104$sfips)
summary(zip104$zip) # need NULL
summary(zip104$zipcode) # Need NULL
summary(zip104$szipcode)
summary(zip104$rzipcode)

zip104$AREA <- as.numeric(zip104$area)
zip104$MSA <- NA
zip104$SMSA <- NA
zip104$WFIPS <- as.character(zip104$FIPS)
zip104$NFIPS <- NA#as.numeric(zip104$sfips)
zip104$ZIP <- NA
zip104$ZIPCODE <- NA
zip104$SZIPCODE <- as.numeric(as.character(zip104$szipcode))
zip104$RZIPCODE <- as.numeric(as.character(zip104$rzipcode))
zip104$NUMBER <- 104

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z104 <- subset(zip104,select=list)

##### December 2011
zip105 <- read.spss("kffgeography/2011/11 December 2011 tracking files to Ropers/31105.Client1214.sav",to.data.frame=T)
names(zip105)
summary(zip105$area)
summary(zip105$msa)#nn
summary(zip105$FIPS)
summary(zip105$sfips)
summary(zip105$zip) # need NULL
summary(zip105$zipcode) # Need NULL
summary(zip105$szipcode)
summary(zip105$rzipcode) # Need NULL

zip105$AREA <- as.numeric(zip105$area)
zip105$MSA <- NA
zip105$SMSA <- NA
zip105$WFIPS <- as.character(zip105$FIPS)
zip105$NFIPS <- NA#as.numeric(zip105$sfips)
zip105$ZIP <- NA
zip105$ZIPCODE <- NA
zip105$SZIPCODE <- as.numeric(as.character(zip105$szipcode))
zip105$RZIPCODE <- NA
zip105$NUMBER <- 105

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z105 <- subset(zip105,select=list)

##### January 2012
zip106 <- read.spss("kffgeography/2012/1 January 2012 to Ropers/31110.Client0119.sav",to.data.frame=T)
names(zip106)
summary(zip106$area)
summary(zip106$msa)#nn
summary(zip106$smsa)#nn
summary(zip106$FIPS)
summary(zip106$sfips)
summary(zip106$zip) # need NULL
summary(zip106$zipcode) # Need NUll
summary(zip106$szipcode)
summary(zip106$rzipcode)

zip106$AREA <- as.numeric(zip106$area)
zip106$MSA <- NA
zip106$SMSA <- NA
zip106$WFIPS <- as.character(zip106$FIPS)
zip106$NFIPS <- NA#as.numeric(zip106$sfips)
zip106$ZIP <- NA
zip106$ZIPCODE <- NA
zip106$SZIPCODE <- as.numeric(as.character(zip106$szipcode))
zip106$RZIPCODE <- as.numeric(zip106$rzipcode)
zip106$NUMBER <- 106

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z106 <- subset(zip106,select=list)

##### February 2012
zip107 <- read.spss("kffgeography/2012/2 February 2012 to Ropers/32301.Client0221 Coded.sav",to.data.frame=T)
names(zip107)
summary(zip107$area)
summary(zip107$msa)#nn
summary(zip107$FIPS)
summary(zip107$sfips)
summary(zip107$zip)
summary(zip107$zipcode)
summary(zip107$szipcode)
summary(zip107$rzipcode)

zip107$AREA <- as.numeric(zip107$area)
zip107$MSA <- NA
zip107$SMSA <- NA
zip107$WFIPS <- as.character(zip107$FIPS)
zip107$NFIPS <- NA#as.numeric(zip107$sfips)
zip107$ZIP <- as.numeric(as.character(zip107$zip))
zip107$ZIPCODE <- as.numeric(as.character(zip107$zipcode))
zip107$SZIPCODE <- as.numeric(as.character(zip107$szipcode))
zip107$RZIPCODE <- as.numeric(as.character(zip107$rzipcode))
zip107$NUMBER <- 107

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z107 <- subset(zip107,select=list)

##### March 2012
zip108 <- read.spss("kffgeography/2012/3 March 2012/32302.Client0307.sav",to.data.frame=T)
names(zip108)
summary(zip108$area)
summary(zip108$msa)#nn
summary(zip108$FIPS)
summary(zip108$sfips)
summary(zip108$zip)
summary(zip108$zipcode)
summary(zip108$szipcode)
summary(zip108$rzipcode)

zip108$AREA <- as.numeric(zip108$area)
zip108$MSA <- NA
zip108$SMSA <- NA
zip108$WFIPS <- as.character(zip108$FIPS)
zip108$NFIPS <- NA#as.numeric(zip108$sfips)
zip108$ZIP <- as.numeric(as.character(zip108$zip))
zip108$ZIPCODE <- as.numeric(as.character(zip108$zipcode))
zip108$SZIPCODE <- as.numeric(as.character(zip108$szipcode))
zip108$RZIPCODE <- as.numeric(as.character(zip108$rzipcode))
zip108$NUMBER <- 108

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z108 <- subset(zip108,select=list)

##### April 2012
zip109 <- read.spss("kffgeography/2012/4 April 2012 to Ropers/32303.Client0412_coded.sav",to.data.frame=T)
names(zip109)
summary(zip109$area)
summary(zip109$msa)#nn
summary(zip109$FIPS)
summary(zip109$sfips)
summary(zip109$zip)
summary(zip109$zipcode)
summary(zip109$szipcode)
summary(zip109$rzipcode)

zip109$AREA <- as.numeric(zip109$area)
zip109$MSA <- NA
zip109$SMSA <- NA
zip109$WFIPS <- as.character(zip109$FIPS)
zip109$NFIPS <- NA#as.numeric(zip109$sfips)
zip109$ZIP <- as.numeric(as.character(zip109$zip))
zip109$ZIPCODE <- as.numeric(as.character(zip109$zipcode))
zip109$SZIPCODE <- as.numeric(as.character(zip109$szipcode))
zip109$RZIPCODE <- as.numeric(as.character(zip109$rzipcode))
zip109$NUMBER <- 109

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z109 <- subset(zip109,select=list)

##### May 2012
zip110 <- read.spss("kffgeography/2012/5 May 2012/32304.Client0605.sav",to.data.frame=T)
names(zip110)
summary(zip110$area)
summary(zip110$msa)#nn
summary(zip110$FIPS)
summary(zip110$sfips)
summary(zip110$zip)
summary(zip110$zipcode)
summary(zip110$szipcode)
summary(zip110$rzipcode)

zip110$AREA <- as.numeric(zip110$area)
zip110$MSA <- NA
zip110$SMSA <- NA
zip110$WFIPS <- as.character(zip110$FIPS)
zip110$NFIPS <- NA#as.numeric(zip110$sfips)
zip110$ZIP <- as.numeric(as.character(zip110$zip))
zip110$ZIPCODE <- as.numeric(as.character(zip110$zipcode))
zip110$SZIPCODE <- as.numeric(as.character(zip110$szipcode))
zip110$RZIPCODE <- as.numeric(as.character(zip110$rzipcode))
zip110$NUMBER <- 110

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z110 <- subset(zip110,select=list)

##### June 2012
zip111 <- read.spss("kffgeography/2012/6 June 2012/32305.Client0701.sav",to.data.frame=T)
names(zip111)
summary(zip111$area)
summary(zip111$smsa)
summary(zip111$msa)#nn
summary(zip111$FIPS)
summary(zip111$sfips)
summary(zip111$zip)
summary(zip111$zipcode)
summary(zip111$szipcode)
summary(zip111$rzipcode)

zip111$AREA <- as.numeric(zip111$area)
zip111$MSA <- NA
zip111$SMSA <- as.numeric(zip111$smsa)
zip111$WFIPS <- as.character(zip111$FIPS)
zip111$NFIPS <- NA#as.numeric(zip111$sfips)
zip111$ZIP <- as.numeric(as.character(zip111$zip))
zip111$ZIPCODE <- as.numeric(as.character(zip111$zipcode))
zip111$SZIPCODE <- as.numeric(as.character(zip111$szipcode))
zip111$RZIPCODE <- as.numeric(as.character(zip111$rzipcode))
zip111$NUMBER <- 111

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z111 <- subset(zip111,select=list)

##### July 2012
zip112 <- read.spss("kffgeography/2012/7 July 2012/32306.Client.Final.sav",to.data.frame=T)
names(zip112)
summary(zip112$area)
summary(zip112$smsa)
summary(zip112$msa)#nn
summary(zip112$FIPS)
summary(zip112$sfips)
summary(zip112$zip)
summary(zip112$zipcode)
summary(zip112$szipcode)
summary(zip112$rzipcode)

zip112$AREA <- as.numeric(zip112$area)
zip112$MSA <- NA
zip112$SMSA <- as.numeric(zip112$smsa)
zip112$WFIPS <- as.character(zip112$FIPS)
zip112$NFIPS <- NA#as.numeric(as.character(zip112$sfips))
zip112$ZIP <- as.numeric(zip112$zip)
zip112$ZIPCODE <- as.numeric(as.character(zip112$zipcode))
zip112$SZIPCODE <- as.numeric(as.character(zip112$szipcode))
zip112$RZIPCODE <- as.numeric(as.character(zip112$rzipcode))
zip112$NUMBER <- 112

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z112 <- subset(zip112,select=list)

##### August 2012
zip113 <- read.spss("kffgeography/2012/8 August 2012/32307.Client0814.sav",to.data.frame=T)
names(zip113)
summary(zip113$area)
summary(zip113$smsa)
summary(zip113$msa)#nn
summary(zip113$FIPS)
summary(zip113$sfips)
summary(zip113$zip)
summary(zip113$zipcode)
summary(zip113$szipcode)
summary(zip113$rzipcode)

zip113$AREA <- as.numeric(zip113$area)
zip113$MSA <- NA
zip113$SMSA <- as.numeric(zip113$smsa)
zip113$WFIPS <- as.character(zip113$FIPS)
zip113$NFIPS <- NA#as.numeric(zip113$sfips)
zip113$ZIP <- as.numeric(as.character(zip113$zip))
zip113$ZIPCODE <- as.numeric(as.character(zip113$zipcode))
zip113$SZIPCODE <- as.numeric(as.character(zip113$szipcode))
zip113$RZIPCODE <- as.numeric(as.character(zip113$rzipcode))
zip113$NUMBER <- 113

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z113 <- subset(zip113,select=list)

##### September 2012
zip114 <- read.spss("kffgeography/2012/9 Sept 2012/September 2012 Tracking Poll Dataset.sav",to.data.frame=T)
names(zip114) # only area and FIPS available in this dataset... ugh
summary(zip114$area)
summary(zip114$smsa)
summary(zip114$msa)#nn
summary(zip114$FIPS)
summary(zip114$sfips)
summary(zip114$zip) #nn
summary(zip114$zipcode)#nn
summary(zip114$szipcode)#nn
summary(zip114$rzipcode)#nn

zip114$AREA <- as.numeric(zip114$area)
zip114$MSA <- NA
zip114$SMSA <- as.numeric(zip114$smsa)
zip114$WFIPS <- as.character(zip114$FIPS)
zip114$NFIPS <- NA#as.numeric(zip114$sfips)
zip114$ZIP <- NA
zip114$ZIPCODE <- NA
zip114$SZIPCODE <- NA
zip114$RZIPCODE <- NA
zip114$NUMBER <- 114

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z114 <- subset(zip114,select=list)

##### October 2012
zip115 <- read.spss("kffgeography/2012/10 Oct 2012/ClientFinal1025.sav",to.data.frame=T)
names(zip115)
summary(zip115$area)
summary(zip115$smsa)
summary(zip115$msa)#nn
summary(zip115$fips)
summary(zip115$sfips)
summary(zip115$zip)
summary(zip115$zipcode)
summary(zip115$szipcode)
summary(zip115$rzipcode)

zip115$AREA <- as.numeric(zip115$area)
zip115$MSA <- NA
zip115$SMSA <- as.numeric(zip115$smsa)
zip115$WFIPS <- as.character(zip115$fips)
zip115$NFIPS <- NA#as.numeric(zip115$sfips)
zip115$ZIP <- as.numeric(as.character(zip115$zip))
zip115$ZIPCODE <- as.numeric(as.character(zip115$zipcode))
zip115$SZIPCODE <- as.numeric(as.character(zip115$szipcode))
zip115$RZIPCODE <- as.numeric(as.character(zip115$rzipcode))
zip115$NUMBER <- 115

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z115 <- subset(zip115,select=list)

##### November 2012
zip116 <- read.spss("kffgeography/2012/11 Nov 2012/Nov 2012 Kaiser Health Tracking Poll dataset.sav",to.data.frame=T)
names(zip116) # no zip code variables
summary(zip116$area)
summary(zip116$smsa)
summary(zip116$msa)#nn
summary(zip116$fips)
summary(zip116$sfips)
summary(zip116$zip)#nn
summary(zip116$zipcode)#nn
summary(zip116$szipcode)#nn
summary(zip116$rzipcode)#nn

zip116$AREA <- as.numeric(zip116$area)
zip116$MSA <- NA
zip116$SMSA <- as.numeric(zip116$smsa)
zip116$WFIPS <- as.character(zip116$fips)
zip116$NFIPS <- NA#as.numeric(zip116$sfips)
zip116$ZIP <- NA
zip116$ZIPCODE <- NA
zip116$SZIPCODE <- NA
zip116$RZIPCODE <- NA
zip116$NUMBER <- 116

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z116 <- subset(zip116,select=list)

##### February 2013
zip117 <- read.spss("kffgeography/2013/1 Feb 2013 to Roper/Feb 2013 Kaiser Health Tracking Poll dataset.sav",to.data.frame=T)
names(zip117) # no zip code variables
summary(zip117$area)
summary(zip117$smsa)
summary(zip117$msa)#nn
summary(zip117$fips)
summary(zip117$sfips)
summary(zip117$zip)#nn
summary(zip117$zipcode)#nn
summary(zip117$szipcode)#nn
summary(zip117$rzipcode)#nn

zip117$AREA <- as.numeric(zip117$area)
zip117$MSA <- NA
zip117$SMSA <- as.numeric(zip117$smsa)
zip117$WFIPS <- as.character(zip117$fips)
zip117$NFIPS <- NA#as.numeric(zip117$sfips)
zip117$ZIP <- NA
zip117$ZIPCODE <- NA
zip117$SZIPCODE <- NA
zip117$RZIPCODE <- NA
zip117$NUMBER <- 117

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z117 <- subset(zip117,select=list)

##### March 2013
zip118  <- read.spss("kffgeography/2013/2 Mar 2013 to Roper/Mar 2013 Kaiser Health Tracking Poll dataset.sav",to.data.frame=T)
names(zip118) # no zip variables
summary(zip118$area)
summary(zip118$smsa)
summary(zip118$msa)#nn
summary(zip118$fips)
summary(zip118$sfips)
summary(zip118$zip)#nn
summary(zip118$zipcode)#nn
summary(zip118$szipcode)#nn
summary(zip118$rzipcode)#nn

zip118$AREA <- as.numeric(zip118$area)
zip118$MSA <- NA
zip118$SMSA <- as.numeric(zip118$smsa)
zip118$WFIPS <- as.character(zip118$fips)
zip118$NFIPS <- NA#as.numeric(zip118$sfips)
zip118$ZIP <- NA
zip118$ZIPCODE <- NA
zip118$SZIPCODE <- NA
zip118$RZIPCODE <- NA
zip118$NUMBER <- 118

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z118 <- subset(zip118,select=list)

##### April 2013
zip119 <- read.spss("kffgeography/2013/3 April 2013 tracking/33304.ClientFinal0422.sav",to.data.frame=T)
names(zip119)
summary(zip119$area)
summary(zip119$smsa)
summary(zip119$msa)#nn
summary(zip119$fips)
summary(zip119$sfips)
summary(zip119$zip)
summary(zip119$zipcode)
summary(zip119$szipcode)
summary(zip119$rzipcode)

zip119$AREA <- as.numeric(zip119$area)
zip119$MSA <- NA
zip119$SMSA <- as.numeric(zip119$smsa)
zip119$WFIPS <- as.character(zip119$fips)
zip119$NFIPS <- NA#as.numeric(zip119$sfips)
zip119$ZIP <- as.numeric(as.character(zip119$zip))
zip119$ZIPCODE <- as.numeric(as.character(zip119$zipcode))
zip119$SZIPCODE <- as.numeric(as.character(zip119$szipcode))
zip119$RZIPCODE <- as.numeric(as.character(zip119$rzipcode))
zip119$NUMBER <- 119

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z119 <- subset(zip119,select=list)

##### June 2013
zip120 <- read.spss("kffgeography/2013/4 Jun 2013 to Roper/June 2013 Kaiser Health Tracking Poll dataset.sav",to.data.frame=T)
names(zip120)
summary(zip120$area)
summary(zip120$smsa)
summary(zip120$msa)#nn
summary(zip120$fips)
summary(zip120$sfips)
summary(zip120$zip)#nn
summary(zip120$zipcode)#nn
summary(zip120$szipcode)#nn
summary(zip120$rzipcode)#nn

zip120$AREA <- as.numeric(zip120$area)
zip120$MSA <- NA
zip120$SMSA <- as.numeric(zip120$smsa)
zip120$WFIPS <- as.character(zip120$fips)
zip120$NFIPS <- NA#as.numeric(as.character(zip120$sfips))
zip120$ZIP <- NA
zip120$ZIPCODE <- NA
zip120$SZIPCODE <- NA
zip120$RZIPCODE <- NA
zip120$NUMBER <- 120

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z120 <- subset(zip120,select=list)

##### August 2013
zip121 <- read.spss("kffgeography/2013/5 Aug 2013/Aug 2013 Kaiser Health Tracking Poll dataset.sav",to.data.frame=T)
names(zip121) # no ZIP info
summary(zip121$area)
summary(zip121$smsa)
summary(zip121$msa)#nn
summary(zip121$fips)
summary(zip121$sfips)
summary(zip121$zip)#nn
summary(zip121$zipcode)#nn
summary(zip121$szipcode)#nn
summary(zip121$rzipcode)#nn

zip121$AREA <- as.numeric(zip121$area)
zip121$MSA <- NA
zip121$SMSA <- as.numeric(zip121$smsa)
zip121$WFIPS <- as.character(zip121$fips)
zip121$NFIPS <- NA#as.numeric(as.character(zip121$sfips))
zip121$ZIP <- NA
zip121$ZIPCODE <- NA
zip121$SZIPCODE <- NA
zip121$RZIPCODE <- NA
zip121$NUMBER <- 121

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z121 <- subset(zip121,select=list)

##### September 2013
zip122 <- read.spss("kffgeography/2013/6 Sept 2013 Tracking/September 2013 Tracking Dataset.sav",to.data.frame=T)
names(zip122)
summary(zip122$area)
summary(zip122$smsa)
summary(zip122$msa)#nn
summary(zip122$fips)
summary(zip122$sfips)
summary(zip122$zip)
summary(zip122$zipcode)
summary(zip122$szipcode)
summary(zip122$rzipcode)

zip122$AREA <- as.numeric(zip122$area)
zip122$MSA <- NA
zip122$SMSA <- as.numeric(zip122$smsa)
zip122$WFIPS <- as.character(zip122$fips)
zip122$NFIPS <- NA#as.numeric(zip122$sfips)
zip122$ZIP <- as.numeric(as.character(zip122$zip))
zip122$ZIPCODE <- as.numeric(as.character(zip122$zipcode))
zip122$SZIPCODE <- as.numeric(as.character(zip122$szipcode))
zip122$RZIPCODE <- as.numeric(as.character(zip122$rzipcode))
zip122$NUMBER <- 122

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z122 <- subset(zip122,select=list)

##### October 2013
zip123 <- read.spss("kffgeography/2013/7 Oct 2013 Tracking/October 2013 Tracking Dataset.sav",to.data.frame=T)
names(zip123)
summary(zip123$area)
summary(zip123$smsa)
summary(zip123$msa)#nn
summary(zip123$sfips)
summary(zip123$fips)
summary(zip123$zip)
summary(zip123$zipcode)
summary(zip123$szipcode)
summary(zip123$rzipcode)

zip123$AREA <- as.numeric(zip123$area)
zip123$MSA <- NA
zip123$SMSA <- as.numeric(zip123$smsa)
zip123$WFIPS <- as.character(zip123$fips)
zip123$NFIPS <- NA#as.numeric(as.character(zip123$sfips))
zip123$ZIP <- as.numeric(as.character(zip123$zip))
zip123$ZIPCODE <- as.numeric(as.character(zip123$zipcode))
zip123$SZIPCODE <- as.numeric(zip123$szipcode)
zip123$RZIPCODE <- as.numeric(zip123$rzipcode)
zip123$NUMBER <- 123

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z123 <- subset(zip123,select=list)

##### November 2013
zip124 <- read.spss("kffgeography/2013/8 Nov 2013 Tracking/November 2013 Tracking Dataset.sav",to.data.frame=T)
names(zip124)
summary(zip124$area)
summary(zip124$smsa)
summary(zip124$msa)#nn
summary(zip124$fips)
summary(zip124$sfips)
summary(zip124$zip)
summary(zip124$zipcode)
summary(zip124$szipcode)
summary(zip124$rzipcode)

zip124$AREA <- as.numeric(zip124$area)
zip124$MSA <- NA
zip124$SMSA <- as.numeric(zip124$smsa)
zip124$WFIPS <- as.character(zip124$fips)
zip124$NFIPS <- NA#as.numeric(zip124$sfips)
zip124$ZIP <- as.numeric(as.character(zip124$zip))
zip124$ZIPCODE <- as.numeric(as.character(zip124$zipcode))
zip124$SZIPCODE <- as.numeric(zip124$szipcode)
zip124$RZIPCODE <- as.numeric(zip124$rzipcode)
zip124$NUMBER <- 124

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z124 <- subset(zip124,select=list)

##### December 2013
zip125 <- read.spss("kffgeography/2013/9 Dec 2013 Tracking/December 2013 Tracking Dataset.sav",to.data.frame=T)
names(zip125)
summary(zip125$area)
summary(zip125$smsa)
summary(zip125$msa)#nn
summary(zip125$fips)
summary(zip125$sfips)
summary(zip125$zip)
summary(zip125$zipcode)
summary(zip125$szipcode)
summary(zip125$rzipcode)

zip125$AREA <- as.numeric(zip125$area)
zip125$MSA <- NA
zip125$SMSA <- as.numeric(zip125$smsa)
zip125$WFIPS <- as.character(zip125$fips)
zip125$NFIPS <- NA#as.numeric(zip125$sfips)
zip125$ZIP <- as.numeric(as.character(zip125$zip))
zip125$ZIPCODE <- as.numeric(as.character(zip125$zipcode))
zip125$SZIPCODE <- as.numeric(zip125$szipcode)
zip125$RZIPCODE <- as.numeric(zip125$rzipcode)
zip125$NUMBER <- 125

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z125 <- subset(zip125,select=list)

##### January 2014
zip126 <- read.spss("kffgeography/2014/1 Jan 2014 Tracking/January 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip126)
summary(zip126$area)
summary(zip126$smsa)
summary(zip126$msa)#nn
summary(zip126$fips)
summary(zip126$sfips)
summary(zip126$zip)
summary(zip126$zipcode)
summary(zip126$szipcode)
summary(zip126$rzipcode)

zip126$AREA <- as.numeric(zip126$area)
zip126$MSA <- NA
zip126$SMSA <- as.numeric(zip126$smsa)
zip126$WFIPS <- as.character(zip126$fips)
zip126$NFIPS <- NA#as.numeric(zip126$sfips)
zip126$ZIP <- as.numeric(as.character(zip126$zip))
zip126$ZIPCODE <- as.numeric(as.character(zip126$zipcode))
zip126$SZIPCODE <- as.numeric(zip126$szipcode)
zip126$RZIPCODE <- as.numeric(zip126$rzipcode)
zip126$NUMBER <- 126

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z126 <- subset(zip126,select=list)

##### February 2014
zip127 <- read.spss("kffgeography/2014/2 Feb 2014 Tracking/February 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip127)
summary(zip127$area)
summary(zip127$smsa)
summary(zip127$msa)#nn
summary(zip127$fips)
summary(zip127$sfips)
summary(zip127$zip)
summary(zip127$zipcode)
summary(zip127$szipcode)
summary(zip127$rzipcode)

zip127$AREA <- as.numeric(zip127$area)
zip127$MSA <- NA
zip127$SMSA <- as.numeric(zip127$smsa)
zip127$WFIPS <- as.character(zip127$fips)
zip127$NFIPS <- NA#as.numeric(zip127$sfips)
zip127$ZIP <- as.numeric(as.character(zip127$zip))
zip127$ZIPCODE <- as.numeric(as.character(zip127$zipcode))
zip127$SZIPCODE <- as.numeric(zip127$szipcode)
zip127$RZIPCODE <- as.numeric(zip127$rzipcode)
zip127$NUMBER <- 127

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z127 <- subset(zip127,select=list)

##### March 2014
zip128 <- read.spss("kffgeography/2014/3 Mar 2014 Tracking/March 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip128)
summary(zip128$area)
summary(zip128$smsa)
summary(zip128$msa)#nn
summary(zip128$fips)
summary(zip128$sfips)
summary(zip128$zip)
summary(zip128$zipcode)
summary(zip128$szipcode)
summary(zip128$rzipcode)

zip128$AREA <- as.numeric(zip128$area)
zip128$MSA <- NA
zip128$SMSA <- as.numeric(zip128$smsa)
zip128$WFIPS <- as.character(zip128$fips)
zip128$NFIPS <- NA#as.numeric(as.character(zip128$sfips))
zip128$ZIP <- as.numeric(as.character(zip128$zip))
zip128$ZIPCODE <- as.numeric(as.character(zip128$zipcode))
zip128$SZIPCODE <- as.numeric(zip128$szipcode)
zip128$RZIPCODE <- as.numeric(zip128$rzipcode)
zip128$NUMBER <- 128

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z128 <- subset(zip128,select=list)

##### April 2014
zip129 <- read.spss("kffgeography/2014/4 Apr 2014 Tracking/April 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip129)
summary(zip129$area)
summary(zip129$smsa)
summary(zip129$msa)#nn
summary(zip129$fips)
summary(zip129$sfips)
summary(zip129$zip)
summary(zip129$zipcode)
summary(zip129$szipcode)
summary(zip129$rzipcode)

zip129$AREA <- as.numeric(zip129$area)
zip129$MSA <- NA
zip129$SMSA <- as.numeric(zip129$smsa)
zip129$WFIPS <- as.character(zip129$fips)
zip129$NFIPS <- NA#as.numeric(zip129$sfips)
zip129$ZIP <- as.numeric(as.character(zip129$zip))
zip129$ZIPCODE <- as.numeric(as.character(zip129$zipcode))
zip129$SZIPCODE <- as.numeric(zip129$szipcode)
zip129$RZIPCODE <- as.numeric(zip129$rzipcode)
zip129$NUMBER <- 129

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z129 <- subset(zip129,select=list)

##### May 2014
zip130 <- read.spss("kffgeography/2014/5 May 2014 Tracking/May 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip130)
summary(zip130$area)
summary(zip130$smsa)
summary(zip130$msa)#nn
summary(zip130$fips)
summary(zip130$sfips)
summary(zip130$zip)
summary(zip130$zipcode)
summary(zip130$szipcode)
summary(zip130$rzipcode)

zip130$AREA <- as.numeric(zip130$area)
zip130$MSA <- NA
zip130$SMSA <- as.numeric(zip130$smsa)
zip130$WFIPS <- as.character(zip130$fips)
zip130$NFIPS <- NA#as.numeric(zip130$sfips)
zip130$ZIP <- as.numeric(as.character(zip130$zip))
zip130$ZIPCODE <- as.numeric(as.character(zip130$zipcode))
zip130$SZIPCODE <- as.numeric(zip130$szipcode)
zip130$RZIPCODE <- as.numeric(zip130$rzipcode)
zip130$NUMBER <- 130

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z130 <- subset(zip130,select=list)

##### June 2014
zip131 <- read.spss("kffgeography/2014/6 Jun 2014 Tracking/June 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip131)
summary(zip131$area)
summary(zip131$msa)#nn
summary(zip131$smsa)
summary(zip131$fips)
summary(zip131$sfips)
summary(zip131$zip)
summary(zip131$zipcode)
summary(zip131$szipcode)
summary(zip131$rzipcode)

zip131$AREA <- as.numeric(zip131$area)
zip131$MSA <- NA
zip131$SMSA <- as.numeric(zip131$smsa)
zip131$WFIPS <- as.character(zip131$fips)
zip131$NFIPS <- NA#as.numeric(zip131$sfips)
zip131$ZIP <- as.numeric(as.character(zip131$zip))
zip131$ZIPCODE <- as.numeric(as.character(zip131$zipcode))
zip131$SZIPCODE <- as.numeric(zip131$szipcode)
zip131$RZIPCODE <- as.numeric(zip131$rzipcode)
zip131$NUMBER <- 131

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z131 <- subset(zip131,select=list)

##### July 2014
zip132 <- read.spss("kffgeography/2014/7 Jul 2014 Tracking/July 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip132)
summary(zip132$area)
summary(zip132$smsa)
summary(zip132$msa)##nn
summary(zip132$fips)
summary(zip132$sfips)
summary(zip132$zip)
summary(zip132$zipcode)
summary(zip132$szipcode)
summary(zip132$rzipcode)

zip132$AREA <- as.numeric(zip132$area)
zip132$MSA <- NA
zip132$SMSA <- as.numeric(zip132$smsa)
zip132$WFIPS <- as.character(zip132$fips)
zip132$NFIPS <- NA#as.numeric(zip132$sfips)
zip132$ZIP <- as.numeric(as.character(zip132$zip))
zip132$ZIPCODE <- as.numeric(as.character(zip132$zipcode))
zip132$SZIPCODE <- as.numeric(zip132$szipcode)
zip132$RZIPCODE <- as.numeric(zip132$rzipcode)
zip132$NUMBER <- 132

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z132 <- subset(zip132,select=list)

##### August/September 2014
zip133 <- read.spss("kffgeography/2014/8 AugSept 2014 Tracking/August September 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip133)
summary(zip133$area)
summary(zip133$smsa)
summary(zip133$msa)#nn
summary(zip133$fips)
summary(zip133$sfips)# WORD FIPS HERE, SAME AS fips. UGH!
summary(zip133$zip)
summary(zip133$zipcode)
summary(zip133$szipcode)
summary(zip133$rzipcode)

zip133$AREA <- as.numeric(zip133$area)
zip133$MSA <- NA
zip133$SMSA <- as.numeric(zip133$smsa)
zip133$WFIPS <- as.character(zip133$fips)
zip133$NFIPS <- NA
zip133$ZIP <- as.numeric(as.character(zip133$zip))
zip133$ZIPCODE <- as.numeric(as.character(zip133$zipcode))
zip133$SZIPCODE <- as.numeric(zip133$szipcode)
zip133$RZIPCODE <- as.numeric(zip133$rzipcode)
zip133$NUMBER <- 133

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z133 <- subset(zip133,select=list)

##### October 2014
zip134 <- read.spss("kffgeography/2014/9 Oct 2014 Tracking/October 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip134)
summary(zip134$area)
summary(zip134$smsa)
summary(zip134$msa)#nn
summary(zip134$fips)
summary(zip134$sfips)# WORD FIPS HERE, SAME AS fips. UGH!
summary(zip134$zip)
summary(zip134$zipcode)
summary(zip134$szipcode)
summary(zip134$rzipcode)

zip134$AREA <- as.numeric(zip134$area)
zip134$MSA <- NA
zip134$SMSA <- as.numeric(zip134$smsa)
zip134$WFIPS <- as.character(zip134$fips)
zip134$NFIPS <- NA
zip134$ZIP <- as.numeric(as.character(zip134$zip))
zip134$ZIPCODE <- as.numeric(as.character(zip134$zipcode))
zip134$SZIPCODE <- as.numeric(zip134$szipcode)
zip134$RZIPCODE <- as.numeric(zip134$rzipcode)
zip134$NUMBER <- 134

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z134 <- subset(zip134,select=list)

##### November 2014
zip135 <- read.spss("kffgeography/2014/10 Nov 2014 Tracking/November 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip135)
summary(zip135$area)
summary(zip135$smsa)
summary(zip135$msa)#nn
summary(zip135$fips)
summary(zip135$sfips)# WORD FIPS HERE, SAME AS fips. UGH!
summary(zip135$zip)
summary(zip135$zipcode)
summary(zip135$szipcode)
summary(zip135$rzipcode)

zip135$AREA <- as.numeric(zip135$area)
zip135$MSA <- NA
zip135$SMSA <- as.numeric(zip135$smsa)
zip135$WFIPS <- as.character(zip135$fips)
zip135$NFIPS <- NA
zip135$ZIP <- as.numeric(as.character(zip135$zip))
zip135$ZIPCODE <- as.numeric(as.character(zip135$zipcode))
zip135$SZIPCODE <- as.numeric(zip135$szipcode)
zip135$RZIPCODE <- as.numeric(zip135$rzipcode)
zip135$NUMBER <- 135

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z135 <- subset(zip135,select=list)

##### December 2014
zip136 <- read.spss("kffgeography/2014/12 Dec 2014 Tracking/December 2014 Tracking Dataset.sav",to.data.frame=T)
names(zip136)
summary(zip136$area)
summary(zip136$smsa)
summary(zip136$msa)#nn
summary(zip136$fips)
summary(zip136$sfips)# WORD FIPS HERE, SAME AS fips. UGH!
summary(zip136$zip)
summary(zip136$zipcode)
summary(zip136$szipcode)
summary(zip136$rzipcode)

zip136$AREA <- as.numeric(zip136$area)
zip136$MSA <- NA
zip136$SMSA <- as.numeric(zip136$smsa)
zip136$WFIPS <- as.character(zip136$fips)
zip136$NFIPS <- NA
zip136$ZIP <- as.numeric(as.character(zip136$zip))
zip136$ZIPCODE <- as.numeric(as.character(zip136$zipcode))
zip136$SZIPCODE <- as.numeric(zip136$szipcode)
zip136$RZIPCODE <- as.numeric(zip136$rzipcode)
zip136$NUMBER <- 136

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z136 <- subset(zip136,select=list)

##### January 2015
zip137 <- read.spss("kffgeography/2015/1 Jan 2015 Tracking Data for Roper/Jan15 Tracking Dataset.sav",to.data.frame=T)
names(zip137)
summary(zip137$area)
summary(zip137$smsa)
summary(zip137$msa)#nn
summary(zip137$fips)
summary(zip137$sfips)# WORD FIPS HERE, SAME AS fips. UGH!
summary(zip137$zip) # need null
summary(zip137$zipcode) # need null
summary(zip137$szipcode) # need null
summary(zip137$rzipcode) # need null

zip137$AREA <- as.numeric(zip137$area)
zip137$MSA <- NA
zip137$SMSA <- as.numeric(zip137$smsa)
zip137$WFIPS <- as.character(zip137$fips)
zip137$NFIPS <- NA
zip137$ZIP <- NA
zip137$ZIPCODE <- NA
zip137$SZIPCODE <- NA
zip137$RZIPCODE <- NA
zip137$NUMBER <- 137

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z137 <- subset(zip137,select=list)

##### March 2015
zip138 <- read.spss("kffgeography/2015/2 Mar 2015 for Roper/35302.ClientCoded0316.sav w all questions.sav",to.data.frame=T)
names(zip138)
summary(zip138$area)
summary(zip138$smsa)
summary(zip138$msa)#nn
summary(zip138$fips)
summary(zip138$sfips) # WORD FIPS HERE, SAME AS fips. UGH!
summary(zip138$zip) # need null
summary(zip138$zipcode) # need null
summary(zip138$szipcode) # need null
summary(zip138$rzipcode) # need null

zip138$AREA <- as.numeric(zip138$area)
zip138$MSA <- NA
zip138$SMSA <- as.numeric(zip138$smsa)
zip138$WFIPS <- as.character(zip138$fips)
zip138$NFIPS <- NA
zip138$ZIP <- NA
zip138$ZIPCODE <- NA
zip138$SZIPCODE <- NA
zip138$RZIPCODE <- NA
zip138$NUMBER <- 138

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z138 <- subset(zip138,select=list)

##### April 2015
zip139 <- read.spss("kffgeography/2015/3 April 2015 Tracking for Roper/35303.Client0416.sav",to.data.frame=T)
names(zip139)
summary(zip139$area)
summary(zip139$msa)#nn
summary(zip139$smsa)
summary(zip139$fips)
summary(zip139$sfips)#word fips ugh
summary(zip139$zip) # need null
summary(zip139$zipcode) # need null
summary(zip139$szipcode) # need null
summary(zip139$rzipcode) # need null

zip139$AREA <- as.numeric(zip139$area)
zip139$MSA <- NA
zip139$SMSA <- as.numeric(zip139$smsa)
zip139$WFIPS <- as.character(zip139$fips)
zip139$NFIPS <- NA
zip139$ZIP <- NA
zip139$ZIPCODE <- NA
zip139$SZIPCODE <- NA
zip139$RZIPCODE <- NA
zip139$NUMBER <- 139

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z139 <- subset(zip139,select=list)

##### June 2015
zip140 <- read.spss("kffgeography/2015/4 June Tracking Data for Roper/35304.Client0610 coded.sav",to.data.frame=T)
names(zip140)
summary(zip140$area)
summary(zip140$smsa)
summary(zip140$msa)#nn
summary(zip140$fips)
summary(zip140$sfips)#word fips
summary(zip140$zip) # need null
summary(zip140$zipcode) # need null
summary(zip140$szipcode) # need null
summary(zip140$rzipcode) # need null

zip140$AREA <- as.numeric(zip140$area)
zip140$MSA <- NA
zip140$SMSA <- as.numeric(zip140$smsa)
zip140$WFIPS <- as.character(zip140$fips)
zip140$NFIPS <- NA
zip140$ZIP <- NA
zip140$ZIPCODE <- NA
zip140$SZIPCODE <- NA
zip140$RZIPCODE <- NA
zip140$NUMBER <- 140

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z140 <- subset(zip140,select=list)

##### July 2015
zip141 <- read.spss("kffgeography/2015/5 Late June for Roper/35305.Client0630.sav",to.data.frame=T)
names(zip141)
summary(zip141$area)
summary(zip141$smsa)
summary(zip141$msa)#nn
summary(zip141$fips)
summary(zip141$sfips)#word fips ugh
summary(zip141$zip) # need null
summary(zip141$zipcode) # need null
summary(zip141$szipcode) # need null
summary(zip141$rzipcode) # need null

zip141$AREA <- as.numeric(zip141$area)
zip141$MSA <- NA
zip141$SMSA <- as.numeric(zip141$smsa)
zip141$WFIPS <- as.character(zip141$fips)
zip141$NFIPS <- NA
zip141$ZIP <- NA
zip141$ZIPCODE <- NA
zip141$SZIPCODE <- NA
zip141$RZIPCODE <- NA
zip141$NUMBER <- 141

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z141 <- subset(zip141,select=list)

##### August 2015
zip142 <- read.spss("kffgeography/2015/6 Aug 2015 Tracking for Roper/35306.Client0812.sav",to.data.frame=T)
names(zip142)
summary(zip142$area)
summary(zip142$smsa)
summary(zip142$msa)#nn
summary(zip142$fips)
summary(zip142$sfips)#word fips ugh
summary(zip142$zip) # need null
summary(zip142$zipcode) # need null
summary(zip142$szipcode) # need null
summary(zip142$rzipcode) # need null

zip142$AREA <- as.numeric(zip142$area)
zip142$MSA <- NA
zip142$SMSA <- as.numeric(zip142$smsa)
zip142$WFIPS <- as.character(zip142$fips)
zip142$NFIPS <- NA
zip142$ZIP <- NA
zip142$ZIPCODE <- NA
zip142$SZIPCODE <- NA
zip142$RZIPCODE <- NA
zip142$NUMBER <- 142

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z142 <- subset(zip142,select=list)

##### September 2015
zip143 <- read.spss("kffgeography/2015/7 Sept 2015 Tracking for Roper/35307.Client0924new.sav",to.data.frame=T)
names(zip143)
summary(zip143$area)
summary(zip143$smsa)
summary(zip143$msa)#nn
summary(zip143$fips)
summary(zip143$sfips)#word fips ugh
summary(zip143$zip) # need null
summary(zip143$zipcode) # need null
summary(zip143$szipcode) # need null
summary(zip143$rzipcode) # need null

zip143$AREA <- as.numeric(zip143$area)
zip143$MSA <- NA
zip143$SMSA <- as.numeric(zip143$smsa)
zip143$WFIPS <- as.character(zip143$fips)
zip143$NFIPS <- NA
zip143$ZIP <- NA
zip143$ZIPCODE <- NA
zip143$SZIPCODE <- NA
zip143$RZIPCODE <- NA
zip143$NUMBER <- 143

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z143 <- subset(zip143,select=list)

##### October 2015
zip144 <- read.spss("kffgeography/2015/8 Oct 2015 for Roper/35308.Client1021.sav",to.data.frame=T)
names(zip144)
summary(zip144$area)
summary(zip144$smsa)
summary(zip144$msa)#nn
summary(zip144$fips)
summary(zip144$sfips)#word fips
summary(zip144$zip) # need null
summary(zip144$zipcode) # nn
summary(zip144$szipcode) # nn
summary(zip144$rzipcode) # nn

zip144$AREA <- as.numeric(zip144$area)
zip144$MSA <- NA
zip144$SMSA <- as.numeric(zip144$smsa)
zip144$WFIPS <- as.character(zip144$fips)
zip144$NFIPS <- NA
zip144$ZIP <- NA
zip144$ZIPCODE <- NA
zip144$SZIPCODE <- NA
zip144$RZIPCODE <- NA
zip144$NUMBER <- 144

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z144 <- subset(zip144,select=list)

##### November 2015
zip145 <- read.spss("kffgeography/2015/9 Nov 2015 for Roper/35309.Client1118.sav",to.data.frame=T)
names(zip145)
summary(zip145$area)
summary(zip145$smsa)
summary(zip145$msa)#nn
summary(zip145$fips)
summary(zip145$sfips)#word fips ugh
summary(zip145$zip) #nn
summary(zip145$zipcode) # nn
summary(zip145$szipcode) # nn
summary(zip145$rzipcode) # nn

zip145$AREA <- as.numeric(zip145$area)
zip145$MSA <- NA
zip145$SMSA <- as.numeric(zip145$smsa)
zip145$WFIPS <- as.character(zip145$fips)
zip145$NFIPS <- NA
zip145$ZIP <- NA
zip145$ZIPCODE <- NA
zip145$SZIPCODE <- NA
zip145$RZIPCODE <- NA
zip145$NUMBER <- 145

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z145 <- subset(zip145,select=list)

##### December 2015
zip146 <- read.spss("kffgeography/2015/10 Dec 2015 Tracking for Roper/35310.Client1208_coded.sav",to.data.frame=T)
names(zip146)
summary(zip146$area)
summary(zip146$smsa)
summary(zip146$msa)#Nn
summary(zip146$fips)
summary(zip146$sfips)#word fips ugh
summary(zip146$zip) # nn
summary(zip146$zipcode) # nn
summary(zip146$szipcode) #nn
summary(zip146$rzipcode) #nn

zip146$AREA <- as.numeric(zip146$area)
zip146$MSA <- NA
zip146$SMSA <- as.numeric(zip146$smsa)
zip146$WFIPS <- as.character(zip146$fips)
zip146$NFIPS <- NA
zip146$ZIP <- NA
zip146$ZIPCODE <- NA
zip146$SZIPCODE <- NA
zip146$RZIPCODE <- NA
zip146$NUMBER <- 146

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z146 <- subset(zip146,select=list)

##### January 2016
zip147 <- read.spss("kffgeography/2016/1 Jan 2016 Data for Roper/36302.Client0120_coded.sav",to.data.frame=T)
names(zip147)
summary(zip147$area)
summary(zip147$smsa)
summary(zip147$msa)#nn
summary(zip147$fips)
summary(zip147$sfips)#word fips ugh
summary(zip147$zip)#nn
summary(zip147$zipcode)#nn
summary(zip147$szipcode)#nn
summary(zip147$rzipcode)#nn

zip147$AREA <- as.numeric(zip147$area)
zip147$MSA <- NA
zip147$SMSA <- as.numeric(zip147$smsa)
zip147$WFIPS <- as.character(zip147$fips)
zip147$NFIPS <- NA
zip147$ZIP <- NA
zip147$ZIPCODE <- NA
zip147$SZIPCODE <- NA
zip147$RZIPCODE <- NA
zip147$NUMBER <- 147

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z147 <- subset(zip147,select=list)

#########
#### working here
### Feb 2016
zip148 <- read.spss("kffgeography/2016 Tracking/February 2016/36303.Client0219Coded.sav",to.data.frame=T)

summary(zip148$area)
summary(zip148$smsa)
summary(zip148$msa)#nn
summary(zip148$fips)
summary(zip148$sfips)#word fips ugh
summary(zip148$zip)#nn
summary(zip148$zipcode)#nn
summary(zip148$szipcode)#nn
summary(zip148$rzipcode)#nn

zip148$AREA <- as.numeric(zip148$area)
zip148$MSA <- NA
zip148$SMSA <- as.numeric(zip148$smsa)
zip148$WFIPS <- as.character(zip148$fips)
zip148$NFIPS <- NA
zip148$ZIP <- NA
zip148$ZIPCODE <- as.numeric(as.character(zip148$zipcode))
zip148$SZIPCODE <- as.numeric(as.character(zip148$szipcode))
zip148$RZIPCODE <- as.numeric(as.character(zip148$rzipcode))
zip148$NUMBER <- 148

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z148 <- subset(zip148,select=list)

############
zip149 <- read.spss("kffsurvey/kffgeography/2016 Tracking/March 2016/36304.Client0316CodedwithnewQ1andQ3.sav",to.data.frame=T)

summary(zip149$area)
summary(zip149$smsa)
summary(zip149$msa)#nn
summary(zip149$fips)
summary(zip149$sfips)#word fips ugh
summary(zip149$zip)#nn
summary(zip149$zipcode)#nn
summary(zip149$szipcode)#nn
summary(zip149$rzipcode)#nn

zip149$AREA <- as.numeric(zip149$area)
zip149$MSA <- NA
zip149$SMSA <- as.numeric(zip149$smsa)
zip149$WFIPS <- as.character(zip149$fips)
zip149$NFIPS <- NA
zip149$ZIP <- NA
zip149$ZIPCODE <- as.numeric(as.character(zip149$zipcode))
zip149$SZIPCODE <- as.numeric(as.character(zip149$szipcode))
zip149$RZIPCODE <- as.numeric(as.character(zip149$rzipcode))
zip149$NUMBER <- 149

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z149 <- subset(zip149,select=list)


##### April 2016
zip150 <- read.spss("kffsurvey/kffgeography/2016 Tracking/April 2016/36305.Client0426Coded.sav",to.data.frame=T)

summary(zip150$area)
summary(zip150$smsa)
summary(zip150$msa)#nn
summary(zip150$fips)
summary(zip150$sfips)#word fips ugh
summary(zip150$zip)#nn
summary(zip150$zipcode)#nn
summary(zip150$szipcode)#nn
summary(zip150$rzipcode)#nn

zip150$AREA <- as.numeric(zip150$area)
zip150$MSA <- NA
zip150$SMSA <- as.numeric(zip150$smsa)
zip150$WFIPS <- as.character(zip150$fips)
zip150$NFIPS <- NA
zip150$ZIP <- NA
zip150$ZIPCODE <- as.numeric(as.character(zip150$zipcode))
zip150$SZIPCODE <- as.numeric(as.character(zip150$szipcode))
zip150$RZIPCODE <- as.numeric(as.character(zip150$rzipcode))
zip150$NUMBER <- 150

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z150 <- subset(zip150,select=list)


### June
zip151 <- read.spss("kffsurvey/kffgeography/2016 Tracking/June 2016/36306.Client0623Coded.sav",to.data.frame=T)

names(zip151)
summary(zip151$area)
summary(zip151$smsa)
summary(zip151$msa)#nn
summary(zip151$fips)
summary(zip151$sfips)#word fips ugh
summary(zip151$zip)#nn
summary(zip151$zipcode)#nn
summary(zip151$szipcode)#nn
summary(zip151$rzipcode)#nn

zip151$AREA <- as.numeric(zip151$area)
zip151$MSA <- NA
zip151$SMSA <- as.numeric(zip151$smsa)
zip151$WFIPS <- as.character(zip151$fips)
zip151$NFIPS <- NA
zip151$ZIP <- NA
zip151$ZIPCODE <- as.numeric(as.character(zip151$zipcode))
zip151$SZIPCODE <- as.numeric(as.character(zip151$szipcode))
zip151$RZIPCODE <- as.numeric(as.character(zip151$rzipcode))
zip151$NUMBER <- 151

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z151 <- subset(zip151,select=list)

### July
zip152 <- read.spss("kffsurvey/kffgeography/2016 Tracking/July 2016/36307.Client0713Coded.sav",to.data.frame=T)

names(zip152)
summary(zip152$area)
summary(zip152$smsa)
summary(zip152$msa)#nn
summary(zip152$fips)
summary(zip152$sfips)#word fips ugh
summary(zip152$zip)#nn
summary(zip152$zipcode)#nn
summary(zip152$szipcode)#nn
summary(zip152$rzipcode)#nn

zip152$AREA <- NA #as.numeric(zip152$area)
zip152$MSA <- NA
zip152$SMSA <- as.numeric(zip152$smsa)
zip152$WFIPS <- as.character(zip152$fips)
zip152$NFIPS <- NA
zip152$ZIP <- NA
zip152$ZIPCODE <- as.numeric(as.character(zip152$zipcode))
zip152$SZIPCODE <- as.numeric(as.character(zip152$szipcode))
zip152$RZIPCODE <- as.numeric(as.character(zip152$rzipcode))
zip152$NUMBER <- 152

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z152 <- subset(zip152,select=list)


### August
zip153 <- read.spss("kffsurvey/kffgeography/2016 Tracking/August 2016/36308.Client0826.sav",to.data.frame=T)

names(zip153)
summary(zip153$area)
summary(zip153$smsa)
summary(zip153$msa)#nn
summary(zip153$fips)
summary(zip153$sfips)#word fips ugh
summary(zip153$zip)#nn
summary(zip153$zipcode)#nn
summary(zip153$szipcode)#nn
summary(zip153$rzipcode)#nn

zip153$AREA <- NA #as.numeric(zip153$area)
zip153$MSA <- NA
zip153$SMSA <- as.numeric(zip153$smsa)
zip153$WFIPS <- as.character(zip153$fips)
zip153$NFIPS <- NA
zip153$ZIP <- NA
zip153$ZIPCODE <- as.numeric(as.character(zip153$zipcode))
zip153$SZIPCODE <- as.numeric(as.character(zip153$szipcode))
zip153$RZIPCODE <- as.numeric(as.character(zip153$rzipcode))
zip153$NUMBER <- 153

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z153 <- subset(zip153,select=list)

### September
zip154 <- read.spss("kffsurvey/kffgeography/2016 Tracking/September 2016/36309.Client0921.sav",to.data.frame=T)

names(zip154)
summary(zip154$area)
summary(zip154$smsa)
summary(zip154$msa)#nn
summary(zip154$fips)
summary(zip154$sfips)#word fips ugh
summary(zip154$zip)#nn
summary(zip154$zipcode)#nn
summary(zip154$szipcode)#nn
summary(zip154$rzipcode)#nn

zip154$AREA <- NA #as.numeric(zip154$area)
zip154$MSA <- NA
zip154$SMSA <- as.numeric(zip154$smsa)
zip154$WFIPS <- as.character(zip154$fips)
zip154$NFIPS <- NA
zip154$ZIP <- NA
zip154$ZIPCODE <- as.numeric(as.character(zip154$zipcode))
zip154$SZIPCODE <- as.numeric(as.character(zip154$szipcode))
zip154$RZIPCODE <- as.numeric(as.character(zip154$rzipcode))
zip154$NUMBER <- 154

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z154 <- subset(zip154,select=list)

### October
zip155 <- read.spss("kffsurvey/kffgeography/2016 Tracking/October 2016/36310.Client1020.sav",to.data.frame=T)

names(zip155)
summary(zip155$area)
summary(zip155$smsa)
summary(zip155$msa)#nn
summary(zip155$fips)
summary(zip155$sfips)#word fips ugh
summary(zip155$zip)#nn
summary(zip155$zipcode)#nn
summary(zip155$szipcode)#nn
summary(zip155$rzipcode)#nn

zip155$AREA <- NA #as.numeric(zip155$area)
zip155$MSA <- NA
zip155$SMSA <- as.numeric(zip155$smsa)
zip155$WFIPS <- as.character(zip155$fips)
zip155$NFIPS <- NA
zip155$ZIP <- NA
zip155$ZIPCODE <- as.numeric(as.character(zip155$zipcode))
zip155$SZIPCODE <- as.numeric(as.character(zip155$szipcode))
zip155$RZIPCODE <- as.numeric(as.character(zip155$rzipcode))
zip155$NUMBER <- 155

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z155 <- subset(zip155,select=list)


### November
zip156 <- read.spss("kffsurvey/kffgeography/2016 Tracking/November 2016/36311.Client1122.sav",to.data.frame=T)

names(zip156)
summary(zip156$area)
summary(zip156$smsa)
summary(zip156$msa)#nn
summary(zip156$fips)
summary(zip156$sfips)#word fips ugh
summary(zip156$zip)#nn
summary(zip156$zipcode)#nn
summary(zip156$szipcode)#nn
summary(zip156$rzipcode)#nn

zip156$AREA <- NA #as.numeric(zip156$area)
zip156$MSA <- NA
zip156$SMSA <- as.numeric(zip156$smsa)
zip156$WFIPS <- as.character(zip156$fips)
zip156$NFIPS <- NA
zip156$ZIP <- NA
zip156$ZIPCODE <- as.numeric(as.character(zip156$zipcode))
zip156$SZIPCODE <- as.numeric(as.character(zip156$szipcode))
zip156$RZIPCODE <- as.numeric(as.character(zip156$rzipcode))
zip156$NUMBER <- 156

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z156 <- subset(zip156,select=list)



### December
zip157 <- read.spss("kffsurvey/kffgeography/2016 Tracking/December 2016/36312.Client1221.sav",to.data.frame=T)

names(zip157)
summary(zip157$area)
summary(zip157$smsa)
summary(zip157$msa)#nn
summary(zip157$fips)
summary(zip157$sfips)#word fips ugh
summary(zip157$zip)#nn
summary(zip157$zipcode)#nn
summary(zip157$szipcode)#nn
summary(zip157$rzipcode)#nn

zip157$AREA <- NA #as.numeric(zip157$area)
zip157$MSA <- NA
zip157$SMSA <- as.numeric(zip157$smsa)
zip157$WFIPS <- as.character(zip157$fips)
zip157$NFIPS <- NA
zip157$ZIP <- NA
zip157$ZIPCODE <- as.numeric(as.character(zip157$zipcode))
zip157$SZIPCODE <- as.numeric(as.character(zip157$szipcode))
zip157$RZIPCODE <- as.numeric(as.character(zip157$rzipcode))
zip157$NUMBER <- 157

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z157 <- subset(zip157,select=list)


### February
zip158 <- read.spss("kffsurvey/kffgeography/2017 Tracking/February 2017/37302.Client0221.sav",to.data.frame=T)

names(zip158)
summary(zip158$area)
summary(zip158$smsa)
summary(zip158$msa)#nn
summary(zip158$fips)
summary(zip158$sfips)#word fips ugh
summary(zip158$zip)#nn
summary(zip158$zipcode)#nn
summary(zip158$szipcode)#nn
summary(zip158$rzipcode)#nn

zip158$AREA <- NA #as.numeric(zip158$area)
zip158$MSA <- NA
zip158$SMSA <- as.numeric(zip158$smsa)
zip158$WFIPS <- as.character(zip158$fips)
zip158$NFIPS <- NA
zip158$ZIP <- NA
zip158$ZIPCODE <- as.numeric(as.character(zip158$zipcode))
zip158$SZIPCODE <- as.numeric(as.character(zip158$szipcode))
zip158$RZIPCODE <- as.numeric(as.character(zip158$rzipcode))
zip158$NUMBER <- 158

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z158 <- subset(zip158,select=list)


### March
zip159 <- read.spss("kffsurvey/kffgeography/2017 Tracking/March 2017/37303.Client0313Coded.sav",to.data.frame=T)

names(zip159)
summary(zip159$area)
summary(zip159$smsa)
summary(zip159$msa)#nn
summary(zip159$fips)
summary(zip159$sfips)#word fips ugh
summary(zip159$zip)#nn
summary(zip159$zipcode)#nn
summary(zip159$szipcode)#nn
summary(zip159$rzipcode)#nn

zip159$AREA <- NA #as.numeric(zip159$area)
zip159$MSA <- NA
zip159$SMSA <- as.numeric(zip159$smsa)
zip159$WFIPS <- as.character(zip159$fips)
zip159$NFIPS <- NA
zip159$ZIP <- NA
zip159$ZIPCODE <- as.numeric(as.character(zip159$zipcode))
zip159$SZIPCODE <- as.numeric(as.character(zip159$szipcode))
zip159$RZIPCODE <- as.numeric(as.character(zip159$rzipcode))
zip159$NUMBER <- 159

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z159 <- subset(zip159,select=list)



### Early April
zip161.5 <- read.spss("kffsurvey/kffgeography/2017 Tracking/Early April 2017/37304.Client0531.sav",to.data.frame=T)

names(zip161.5)
summary(zip161.5$area)
summary(zip161.5$smsa)
summary(zip161.5$msa)#nn
summary(zip161.5$fips)
summary(zip161.5$sfips)#word fips ugh
summary(zip161.5$zip)#nn
summary(zip161.5$zipcode)#nn
summary(zip161.5$szipcode)#nn
summary(zip161.5$rzipcode)#nn

zip161.5$AREA <- NA #as.numeric(zip161.5$area)
zip161.5$MSA <- NA
zip161.5$SMSA <- as.numeric(zip161.5$smsa)
zip161.5$WFIPS <- as.character(zip161.5$fips)
zip161.5$NFIPS <- NA
zip161.5$ZIP <- NA
zip161.5$ZIPCODE <- as.numeric(as.character(zip161.5$zipcode))
zip161.5$SZIPCODE <- as.numeric(as.character(zip161.5$szipcode))
zip161.5$RZIPCODE <- as.numeric(as.character(zip161.5$rzipcode))
zip161.5$NUMBER <- 161

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z161.5 <- subset(zip161.5,select=list)


### Late April
zip160 <- read.spss("kffsurvey/kffgeography/2017 Tracking/Late April 2017/37305.Client0531.sav",to.data.frame=T)

names(zip160)
summary(zip160$area)
summary(zip160$smsa)
summary(zip160$msa)#nn
summary(zip160$fips)
summary(zip160$sfips)#word fips ugh
summary(zip160$zip)#nn
summary(zip160$zipcode)#nn
summary(zip160$szipcode)#nn
summary(zip160$rzipcode)#nn

zip160$AREA <- NA #as.numeric(zip160$area)
zip160$MSA <- NA
zip160$SMSA <- as.numeric(zip160$smsa)
zip160$WFIPS <- as.character(zip160$fips)
zip160$NFIPS <- NA
zip160$ZIP <- NA
zip160$ZIPCODE <- as.numeric(as.character(zip160$zipcode))
zip160$SZIPCODE <- as.numeric(as.character(zip160$szipcode))
zip160$RZIPCODE <- as.numeric(as.character(zip160$rzipcode))
zip160$NUMBER <- 160

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z160 <- subset(zip160,select=list)


### May
zip161 <- read.spss("kffsurvey/kffgeography/2017 Tracking/May 2017/37306.Client0523.sav",to.data.frame=T)

names(zip161)
summary(zip161$area)
summary(zip161$smsa)
summary(zip161$msa)#nn
summary(zip161$fips)
summary(zip161$sfips)#word fips ugh
summary(zip161$zip)#nn
summary(zip161$zipcode)#nn
summary(zip161$szipcode)#nn
summary(zip161$rzipcode)#nn

zip161$AREA <- NA #as.numeric(zip161$area)
zip161$MSA <- NA
zip161$SMSA <- as.numeric(zip161$smsa)
zip161$WFIPS <- as.character(zip161$fips)
zip161$NFIPS <- NA
zip161$ZIP <- NA
zip161$ZIPCODE <- as.numeric(as.character(zip161$zipcode))
zip161$SZIPCODE <- as.numeric(as.character(zip161$szipcode))
zip161$RZIPCODE <- as.numeric(as.character(zip161$rzipcode))
zip161$NUMBER <- 161

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z161 <- subset(zip161,select=list)


### June
zip162 <- read.spss("kffsurvey/kffgeography/2017 Tracking/June 2017/Kaiser Health Tracking Poll_June_Final.sav",to.data.frame=T)
colnames(zip162)[1] <- "psraid"

names(zip162)
summary(zip162$area)
summary(zip162$smsa)
summary(zip162$msa)#nn
summary(zip162$fips)
summary(zip162$sfips)#word fips ugh
summary(zip162$zip)#nn
summary(zip162$zipcode)#nn
summary(zip162$szipcode)#nn
summary(zip162$rzipcode)#nn

zip162$AREA <- NA #as.numeric(zip162$area)
zip162$MSA <- NA
zip162$SMSA <- as.numeric(zip162$smsa)
zip162$WFIPS <- as.character(zip162$fips)
zip162$NFIPS <- NA
zip162$ZIP <- NA
zip162$ZIPCODE <- as.numeric(as.character(zip162$zipcode))
zip162$SZIPCODE <- NA # as.numeric(as.character(zip162$szipcode))
zip162$RZIPCODE <- NA # as.numeric(as.character(zip162$rzipcode))
zip162$NUMBER <- 162

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z162 <- subset(zip162,select=list)

### July
zip163 <- read.spss("kffsurvey/kffgeography/2017 Tracking/July 2017/Kaiser Health Tracking Poll_July_Final_RVSD_coded no rotates.sav",to.data.frame=T)
colnames(zip163)[1] <- "psraid"

names(zip163)
summary(zip163$area)
summary(zip163$smsa)
summary(zip163$msa)#nn
summary(zip163$fips)
summary(zip163$sfips)#word fips ugh
summary(zip163$zip)#nn
summary(zip163$zipcode)#nn
summary(zip163$szipcode)#nn
summary(zip163$rzipcode)#nn

zip163$AREA <- NA #as.numeric(zip163$area)
zip163$MSA <- NA
zip163$SMSA <- as.numeric(zip163$smsa)
zip163$WFIPS <- as.character(zip163$fips)
zip163$NFIPS <- NA
zip163$ZIP <- NA
zip163$ZIPCODE <- as.numeric(as.character(zip163$zipcode))
zip163$SZIPCODE <- NA#as.numeric(as.character(zip163$szipcode))
zip163$RZIPCODE <- NA#as.numeric(as.character(zip163$rzipcode))
zip163$NUMBER <- 163

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z163 <- subset(zip163,select=list)


### August
zip164 <- read.spss("kffsurvey/kffgeography/2017 Tracking/August 2017/Kaiser Health Tracking Poll_August_RVSD no rotates.sav",to.data.frame=T)
colnames(zip164)[1] <- "psraid"

names(zip164)
summary(zip164$area)
summary(zip164$smsa)
summary(zip164$msa)#nn
summary(zip164$fips)
summary(zip164$sfips)#word fips ugh
summary(zip164$zip)#nn
summary(zip164$zipcode)#nn
summary(zip164$szipcode)#nn
summary(zip164$rzipcode)#nn

zip164$AREA <- NA #as.numeric(zip164$area)
zip164$MSA <- NA
zip164$SMSA <- as.numeric(zip164$smsa)
zip164$WFIPS <- as.character(zip164$fips)
zip164$NFIPS <- NA
zip164$ZIP <- NA
zip164$ZIPCODE <- as.numeric(as.character(zip164$zipcode))
zip164$SZIPCODE <- NA #as.numeric(as.character(zip164$szipcode))
zip164$RZIPCODE <- NA #as.numeric(as.character(zip164$rzipcode))
zip164$NUMBER <- 164

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z164 <- subset(zip164,select=list)

### Sept 2017
zip165 <- read.spss("kffsurvey/kffgeography/2017 Tracking/September 2017/Kaiser Health Tracking Poll_September_Final no rotates.sav",to.data.frame=T)
colnames(zip165)[1] <- "psraid"

names(zip165)
summary(zip165$area)
summary(zip165$smsa)
summary(zip165$msa)#nn
summary(zip165$fips)
summary(zip165$sfips)#word fips ugh
summary(zip165$zip)#nn
summary(zip165$zipcode)#nn
summary(zip165$szipcode)#nn
summary(zip165$rzipcode)#nn

zip165$AREA <- NA #as.numeric(zip165$area)
zip165$MSA <- NA
zip165$SMSA <- as.numeric(zip165$smsa)
zip165$WFIPS <- as.character(zip165$fips)
zip165$NFIPS <- NA
zip165$ZIP <- NA
zip165$ZIPCODE <- as.numeric(as.character(zip165$zipcode))
zip165$SZIPCODE <- NA#as.numeric(as.character(zip165$szipcode))
zip165$RZIPCODE <- NA#as.numeric(as.character(zip165$rzipcode))
zip165$NUMBER <- 165

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z165 <- subset(zip165,select=list)

###### October 2017

zip166 <- read.spss("kffsurvey/kffgeography/2017 Tracking Surveys/October/Kaiser Health Tracking Poll_Oct_Final no rotates_RVSD USR.sav",to.data.frame=T)
colnames(zip166)[1] <- "psraid"

names(zip166)
summary(zip166$area)
summary(zip166$smsa)
summary(zip166$msa)#nn
summary(zip166$fips)
summary(zip166$sfips)#word fips ugh
summary(zip166$zip)#nn
summary(zip166$zipcode)#nn
summary(zip166$szipcode)#nn
summary(zip166$rzipcode)#nn

zip166$AREA <- NA #as.numeric(zip165$area)
zip166$MSA <- NA
zip166$SMSA <- as.numeric(zip166$smsa)
zip166$WFIPS <- as.character(zip166$fips)
zip166$NFIPS <- NA
zip166$ZIP <- NA
zip166$ZIPCODE <- as.numeric(as.character(zip166$zipcode))
zip166$SZIPCODE <- NA#as.numeric(as.character(zip166$szipcode))
zip166$RZIPCODE <- NA#as.numeric(as.character(zip166$rzipcode))
zip166$NUMBER <- 166

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z166 <- subset(zip166,select=list)

#### November 2017

zip167 <- read.spss("kffsurvey/kffgeography/2017 Tracking Surveys/November/Kaiser Health Tracking Poll_November_Final no rotates_RVSD.sav",to.data.frame=T)
colnames(zip167)[1] <- "psraid"

names(zip167)
summary(zip167$area)
summary(zip167$smsa)
summary(zip167$msa)#nn
summary(zip167$fips)
summary(zip167$sfips)#word fips ugh
summary(zip167$zip)#nn
summary(zip167$zipcode)#nn
summary(zip167$szipcode)#nn
summary(zip167$rzipcode)#nn

zip167$AREA <- NA #as.numeric(zip167$area)
zip167$MSA <- NA
zip167$SMSA <- as.numeric(zip167$smsa)
zip167$WFIPS <- as.character(zip167$fips)
zip167$NFIPS <- NA
zip167$ZIP <- NA
zip167$ZIPCODE <- as.numeric(as.character(zip167$zipcode))
zip167$SZIPCODE <- NA#as.numeric(as.character(zip166$szipcode))
zip167$RZIPCODE <- NA#as.numeric(as.character(zip166$rzipcode))
zip167$NUMBER <- 167

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z167 <- subset(zip167,select=list)

#######

zip168 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/January/Kaiser Health Tracking Poll_Jan_Final Data no rotates_RVSD.sav",to.data.frame=T)
colnames(zip168)[1] <- "psraid"

names(zip168)
summary(zip168$area)
summary(zip168$smsa)
summary(zip168$msa)#nn
summary(zip168$fips)
summary(zip168$sfips)#word fips ugh
summary(zip168$zip)#nn
summary(zip168$zipcode)#nn
summary(zip168$szipcode)#nn
summary(zip168$rzipcode)#nn

zip168$AREA <- NA #as.numeric(zip167$area)
zip168$MSA <- NA
zip168$SMSA <- as.numeric(zip168$smsa)
zip168$WFIPS <- as.character(zip168$fips)
zip168$NFIPS <- NA
zip168$ZIP <- NA
zip168$ZIPCODE <- as.numeric(as.character(zip168$zipcode))
zip168$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip168$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip168$NUMBER <- 168

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z168 <- subset(zip168,select=list)

####

zip169 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/February/Kaiser Health Tracking Poll_Feb_Final no rotates.sav",to.data.frame=T)
colnames(zip169)[1] <- "psraid"

names(zip169)
summary(zip169$area)
summary(zip169$smsa)
summary(zip169$msa)#nn
summary(zip169$fips)
summary(zip169$sfips)#word fips ugh
summary(zip169$zip)#nn
summary(zip169$zipcode)#nn
summary(zip169$szipcode)#nn
summary(zip169$rzipcode)#nn

zip169$AREA <- NA #as.numeric(zip167$area)
zip169$MSA <- NA
zip169$SMSA <- as.numeric(zip169$smsa)
zip169$WFIPS <- as.character(zip169$fips)
zip169$NFIPS <- NA
zip169$ZIP <- NA
zip169$ZIPCODE <- as.numeric(as.character(zip169$zipcode))
zip169$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip169$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip169$NUMBER <- 169

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z169 <- subset(zip169,select=list)

#####

zip170 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/March/Kaiser Health Tracking Poll_Mar_Final no rotates.sav",to.data.frame=T)
colnames(zip170)[1] <- "psraid"

names(zip170)
summary(zip170$area)
summary(zip170$smsa)
summary(zip170$msa)#nn
summary(zip170$fips)
summary(zip170$sfips)#word fips ugh
summary(zip170$zip)#nn
summary(zip170$zipcode)#nn
summary(zip170$szipcode)#nn
summary(zip170$rzipcode)#nn

zip170$AREA <- NA #as.numeric(zip167$area)
zip170$MSA <- NA
zip170$SMSA <- as.numeric(zip170$smsa)
zip170$WFIPS <- as.character(zip170$fips)
zip170$NFIPS <- NA
zip170$ZIP <- NA
zip170$ZIPCODE <- as.numeric(as.character(zip170$zipcode))
zip170$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip170$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip170$NUMBER <- 170

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z170 <- subset(zip170,select=list)

####

zip171 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/April/Kaiser Health Tracking Poll_Apr_Final with rotates.sav",to.data.frame=T)
colnames(zip171)[1] <- "psraid"

names(zip171)
summary(zip171$area)
summary(zip171$smsa)
summary(zip171$msa)#nn
summary(zip171$fips)
summary(zip171$sfips)#word fips ugh
summary(zip171$zip)#nn
summary(zip171$zipcode)#nn
summary(zip171$szipcode)#nn
summary(zip171$rzipcode)#nn

zip171$AREA <- NA #as.numeric(zip167$area)
zip171$MSA <- NA
zip171$SMSA <- as.numeric(zip171$smsa)
zip171$WFIPS <- as.character(zip171$fips)
zip171$NFIPS <- NA
zip171$ZIP <- NA
zip171$ZIPCODE <- as.numeric(as.character(zip171$zipcode))
zip171$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip171$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip171$NUMBER <- 171

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z171 <- subset(zip171,select=list)

##### No May; June

zip172 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/June/Kaiser Health Tracking Poll_Jun_Final no rotates.sav",to.data.frame=T)
colnames(zip172)[1] <- "psraid"

names(zip172)
summary(zip172$area)
summary(zip172$smsa)
summary(zip172$msa)#nn
summary(zip172$fips)
summary(zip172$sfips)#word fips ugh
summary(zip172$zip)#nn
summary(zip172$zipcode)#nn
summary(zip172$szipcode)#nn
summary(zip172$rzipcode)#nn

zip172$AREA <- NA #as.numeric(zip167$area)
zip172$MSA <- NA
zip172$SMSA <- as.numeric(zip172$smsa)
zip172$WFIPS <- as.character(zip172$fips)
zip172$NFIPS <- NA
zip172$ZIP <- NA
zip172$ZIPCODE <- as.numeric(as.character(zip172$zipcode))
zip172$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip172$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip172$NUMBER <- 172

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z172 <- subset(zip172,select=list)

##### JULY

zip173 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/July/Kaiser Health Tracking Poll_Jul_Final with rotates.sav",to.data.frame=T)
colnames(zip173)[1] <- "psraid"

names(zip173)
summary(zip173$area)
summary(zip173$smsa)
summary(zip173$msa)#nn
summary(zip173$fips)
summary(zip173$sfips)#word fips ugh
summary(zip173$zip)#nn
summary(zip173$zipcode)#nn
summary(zip173$szipcode)#nn
summary(zip173$rzipcode)#nn

zip173$AREA <- NA #as.numeric(zip167$area)
zip173$MSA <- NA
zip173$SMSA <- as.numeric(zip173$smsa)
zip173$WFIPS <- as.character(zip173$fips)
zip173$NFIPS <- NA
zip173$ZIP <- NA
zip173$ZIPCODE <- as.numeric(as.character(zip173$zipcode))
zip173$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip173$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip173$NUMBER <- 173

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z173 <- subset(zip173,select=list)

#### August


zip174 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/August/Kaiser Health Tracking Poll_Aug_Final with rotates_RVSD.sav",to.data.frame=T)
colnames(zip174)[1] <- "psraid"

names(zip174)
summary(zip174$area)
summary(zip174$smsa)
summary(zip174$msa)#nn
summary(zip174$fips)
summary(zip174$sfips)#word fips ugh
summary(zip174$zip)#nn
summary(zip174$zipcode)#nn
summary(zip174$szipcode)#nn
summary(zip174$rzipcode)#nn

zip174$AREA <- NA #as.numeric(zip167$area)
zip174$MSA <- NA
zip174$SMSA <- as.numeric(zip174$smsa)
zip174$WFIPS <- as.character(zip174$fips)
zip174$NFIPS <- NA
zip174$ZIP <- NA
zip174$ZIPCODE <- as.numeric(as.character(zip174$zipcode))
zip174$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip174$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip174$NUMBER <- 174

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z174 <- subset(zip174,select=list)

######

zip175 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/September/Kaiser Health Tracking Poll_Sep_Final no rotates_RVSD_10.10.18.sav",to.data.frame=T)
colnames(zip175)[1] <- "psraid"

names(zip175)
summary(zip175$area)
summary(zip175$smsa)
summary(zip175$msa)#nn
summary(zip175$fips)
summary(zip175$sfips)#word fips ugh
summary(zip175$zip)#nn
summary(zip175$zipcode)#nn
summary(zip175$szipcode)#nn
summary(zip175$rzipcode)#nn

zip175$AREA <- NA #as.numeric(zip167$area)
zip175$MSA <- NA
zip175$SMSA <- as.numeric(zip175$smsa)
zip175$WFIPS <- as.character(zip175$fips)
zip175$NFIPS <- NA
zip175$ZIP <- NA
zip175$ZIPCODE <- as.numeric(as.character(zip175$zipcode))
zip175$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip175$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip175$NUMBER <- 175

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z175 <- subset(zip175,select=list)


#### no october 2018 next november

zip176 <- read.spss("kffsurvey/kffgeography/2018 Tracking Surveys/November/Kaiser Health Tracking Poll_Nov_Final no rotates.sav",to.data.frame=T)
colnames(zip176)[1] <- "psraid"

names(zip176)
summary(zip176$area)
summary(zip176$smsa)
summary(zip176$msa)#nn
summary(zip176$fips)
summary(zip176$sfips)#word fips ugh
summary(zip176$zip)#nn
summary(zip176$zipcode)#nn
summary(zip176$szipcode)#nn
summary(zip176$rzipcode)#nn

zip176$AREA <- NA #as.numeric(zip167$area)
zip176$MSA <- NA
zip176$SMSA <- as.numeric(zip176$smsa)
zip176$WFIPS <- as.character(zip176$fips)
zip176$NFIPS <- NA
zip176$ZIP <- NA
zip176$ZIPCODE <- as.numeric(as.character(zip176$zipcode))
zip176$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip176$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip176$NUMBER <- 176

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z176 <- subset(zip176,select=list)

##### january 2019

zip177 <- read.spss("kffsurvey/kffgeography/2019 Tracking Surveys/January/Kaiser Health Tracking Poll_Jan_Final with rotates.sav",to.data.frame=T)
colnames(zip177)[1] <- "psraid"

names(zip177)
summary(zip177$area)
summary(zip177$smsa)
summary(zip177$msa)#nn
summary(zip177$fips)
summary(zip177$sfips)#word fips ugh
summary(zip177$zip)#nn
summary(zip177$zipcode)#nn
summary(zip177$szipcode)#nn
summary(zip177$rzipcode)#nn

zip177$AREA <- NA #as.numeric(zip167$area)
zip177$MSA <- NA
zip177$SMSA <- as.numeric(zip177$smsa)
zip177$WFIPS <- as.character(zip177$fips)
zip177$NFIPS <- NA
zip177$ZIP <- NA
zip177$ZIPCODE <- as.numeric(as.character(zip177$zipcode))
zip177$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip177$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip177$NUMBER <- 177

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z177 <- subset(zip177,select=list)

#### February

zip178 <- read.spss("kffsurvey/kffgeography/2019 Tracking Surveys/February/Kaiser Health Tracker Poll_Feb_Final no rotates.sav",to.data.frame=T)
colnames(zip178)[1] <- "psraid"

names(zip178)
summary(zip178$area)
summary(zip178$smsa)
summary(zip178$msa)#nn
summary(zip178$fips)
summary(zip178$sfips)#word fips ugh
summary(zip178$zip)#nn
summary(zip178$zipcode)#nn
summary(zip178$szipcode)#nn
summary(zip178$rzipcode)#nn

zip178$AREA <- NA #as.numeric(zip167$area)
zip178$MSA <- NA
zip178$SMSA <- as.numeric(zip178$smsa)
zip178$WFIPS <- as.character(zip178$fips)
zip178$NFIPS <- NA
zip178$ZIP <- NA
zip178$ZIPCODE <- as.numeric(as.character(zip178$zipcode))
zip178$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip178$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip178$NUMBER <- 178

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z178 <- subset(zip178,select=list)

####

zip179 <- read.spss("kffsurvey/kffgeography/2019 Tracking Surveys/March/Kaiser Health Tracker Poll_Mar_FINAL_no rotates.sav",to.data.frame=T)
colnames(zip179)[1] <- "psraid"

names(zip179)
summary(zip179$area)
summary(zip179$smsa)
summary(zip179$msa)#nn
summary(zip179$fips)
summary(zip179$sfips)#word fips ugh
summary(zip179$zip)#nn
summary(zip179$zipcode)#nn
summary(zip179$szipcode)#nn
summary(zip179$rzipcode)#nn

zip179$AREA <- NA #as.numeric(zip167$area)
zip179$MSA <- NA
zip179$SMSA <- as.numeric(zip179$smsa)
zip179$WFIPS <- as.character(zip179$fips)
zip179$NFIPS <- NA
zip179$ZIP <- NA
zip179$ZIPCODE <- as.numeric(as.character(zip179$zipcode))
zip179$SZIPCODE <- NA#as.numeric(as.character(zip168$szipcode))
zip179$RZIPCODE <- NA#as.numeric(as.character(zip168$rzipcode))
zip179$NUMBER <- 179

list <- c("AREA","MSA","SMSA","WFIPS","NFIPS","ZIP","ZIPCODE","SZIPCODE","RZIPCODE","NUMBER","psraid")
z179 <- subset(zip179,select=list)


#######

geodta <- rbind(z74,z75,z76,z77,z78,z79,
                z80,z81,z82,z83,z84,z85,z86,z87,z88,z89,
                z90,z91,z92,z93,z94,z95,z96,z97,z98,z99,
                z100,z101,z102,z103,z104,z105,z106,z107,z108,z109,
                z110,z111,z112,z113,z114,z115,z116,z117,z118,z119,
                z120,z121,z122,z123,z124,z125,z126,z127,z128,z129,
                z130,z131,z132,z133,z134,z135,z136,z137,z138,z139,
                z140,z141,z142,z143,z144,z145,z146,z147,
			z148,z149,z150,z151,z152,z153,z154,z155,z156,z157,
			z158,z159,z160,z161,
			z162,z163,z164,z165,
			z166,z167,z168,z169,
			z170,z171,z172,z173,z174,z175,
			z176,z177,z178,z179)

save(geodta,file="kffsurvey/kffgeography/joint-geocodes-05022019.Rdata")

#save(geodta,file="kffsurvey/kffgeography/joint-geocodes-08162018.Rdata")
